/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Apple II / Essentials / Essentials.sea / MPW IIGS Interfaces / PIIGSIncludes / TextEdit.p

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0a 54 65 78 74 45 64 | 69 74 2e 70 00 00 00 00 |..TextEd|it.p....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 38 80 00 | 00 01 ac a8 43 a6 84 a8 |.....8..|....C...|
|00000060| 43 a6 84 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |C.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 fb 21 00 00 |........|.....!..|
|00000080| 7b 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |{*******|********|
|00000090| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0d 3b 20 |********|*****.; |
|000000b0| 46 69 6c 65 3a 20 54 65 | 78 74 45 64 69 74 2e 70 |File: Te|xtEdit.p|
|000000c0| 0d 3b 0d 3b 0d 3b 20 43 | 6f 70 79 72 69 67 68 74 |.;.;.; C|opyright|
|000000d0| 20 41 70 70 6c 65 20 43 | 6f 6d 70 75 74 65 72 2c | Apple C|omputer,|
|000000e0| 20 49 6e 63 2e 20 31 39 | 38 36 2d 39 30 0d 3b 20 | Inc. 19|86-90.; |
|000000f0| 41 6c 6c 20 52 69 67 68 | 74 73 20 52 65 73 65 72 |All Righ|ts Reser|
|00000100| 76 65 64 0d 3b 0d 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |ved.;.**|********|
|00000110| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000120| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000130| 2a 2a 7d 0d 0d 55 4e 49 | 54 20 54 45 58 54 45 44 |**}..UNI|T TEXTED|
|00000140| 49 54 3b 0d 0d 49 4e 54 | 45 52 46 41 43 45 0d 0d |IT;..INT|ERFACE..|
|00000150| 55 53 45 53 20 54 59 50 | 45 53 2c 51 55 49 43 4b |USES TYP|ES,QUICK|
|00000160| 44 52 41 57 2c 45 56 45 | 4e 54 53 2c 46 4f 4e 54 |DRAW,EVE|NTS,FONT|
|00000170| 53 2c 47 53 4f 53 2c 52 | 45 53 4f 55 52 43 45 53 |S,GSOS,R|ESOURCES|
|00000180| 2c 43 4f 4e 54 52 4f 4c | 53 3b 0d 0d 43 4f 4e 53 |,CONTROL|S;..CONS|
|00000190| 54 0d 7b 20 45 72 72 6f | 72 20 43 6f 64 65 73 20 |T.{ Erro|r Codes |
|000001a0| 7d 0d 74 65 41 6c 72 65 | 61 64 79 53 74 61 72 74 |}.teAlre|adyStart|
|000001b0| 65 64 20 3d 20 24 32 32 | 30 31 3b 0d 74 65 4e 6f |ed = $22|01;.teNo|
|000001c0| 74 53 74 61 72 74 65 64 | 20 3d 20 24 32 32 30 32 |tStarted| = $2202|
|000001d0| 3b 0d 74 65 49 6e 76 61 | 6c 69 64 48 61 6e 64 6c |;.teInva|lidHandl|
|000001e0| 65 20 3d 20 24 32 32 30 | 33 3b 0d 74 65 49 6e 76 |e = $220|3;.teInv|
|000001f0| 61 6c 69 64 56 65 72 62 | 20 3d 20 24 32 32 30 34 |alidVerb| = $2204|
|00000200| 3b 0d 74 65 49 6e 76 61 | 6c 69 64 46 6c 61 67 20 |;.teInva|lidFlag |
|00000210| 3d 20 24 32 32 30 35 3b | 0d 74 65 49 6e 76 61 6c |= $2205;|.teInval|
|00000220| 69 64 50 43 6f 75 6e 74 | 20 3d 20 24 32 32 30 36 |idPCount| = $2206|
|00000230| 3b 0d 74 65 49 6e 76 61 | 6c 69 64 52 65 63 74 20 |;.teInva|lidRect |
|00000240| 3d 20 24 32 32 30 37 3b | 0d 74 65 42 75 66 66 65 |= $2207;|.teBuffe|
|00000250| 72 4f 76 65 72 66 6c 6f | 77 20 3d 20 24 32 32 30 |rOverflo|w = $220|
|00000260| 38 3b 0d 74 65 49 6e 76 | 61 6c 69 64 4c 69 6e 65 |8;.teInv|alidLine|
|00000270| 20 3d 20 24 32 32 30 39 | 3b 0d 74 65 49 6e 76 61 | = $2209|;.teInva|
|00000280| 6c 69 64 43 61 6c 6c 20 | 3d 20 24 32 32 30 41 3b |lidCall |= $220A;|
|00000290| 0d 0d 7b 20 54 45 20 56 | 65 72 62 73 20 7d 0d 4e |..{ TE V|erbs }.N|
|000002a0| 75 6c 6c 56 65 72 62 20 | 3d 20 24 30 30 30 30 3b |ullVerb |= $0000;|
|000002b0| 0d 50 53 74 72 69 6e 67 | 56 65 72 62 20 3d 20 24 |.PString|Verb = $|
|000002c0| 30 30 30 31 3b 0d 43 53 | 74 72 69 6e 67 56 65 72 |0001;.CS|tringVer|
|000002d0| 62 20 3d 20 24 30 30 30 | 32 3b 0d 43 31 49 6e 70 |b = $000|2;.C1Inp|
|000002e0| 75 74 56 65 72 62 20 3d | 20 24 30 30 30 33 3b 0d |utVerb =| $0003;.|
|000002f0| 43 31 4f 75 74 70 75 74 | 56 65 72 62 20 3d 20 24 |C1Output|Verb = $|
|00000300| 30 30 30 34 3b 0d 48 61 | 6e 64 6c 65 56 65 72 62 |0004;.Ha|ndleVerb|
|00000310| 20 3d 20 24 30 30 30 35 | 3b 0d 50 6f 69 6e 74 65 | = $0005|;.Pointe|
|00000320| 72 56 65 72 62 20 3d 20 | 24 30 30 30 36 3b 0d 4e |rVerb = |$0006;.N|
|00000330| 65 77 50 53 74 72 69 6e | 67 56 65 72 62 20 3d 20 |ewPStrin|gVerb = |
|00000340| 24 30 30 30 37 3b 0d 66 | 45 71 75 61 6c 4c 69 6e |$0007;.f|EqualLin|
|00000350| 65 53 70 61 63 69 6e 67 | 20 3d 20 24 38 30 30 30 |eSpacing| = $8000|
|00000360| 3b 0d 66 53 68 6f 77 49 | 6e 76 69 73 69 62 6c 65 |;.fShowI|nvisible|
|00000370| 73 20 3d 20 24 34 30 30 | 30 3b 0d 74 65 49 6e 76 |s = $400|0;.teInv|
|00000380| 61 6c 69 64 44 65 73 63 | 72 69 70 74 6f 72 20 3d |alidDesc|riptor =|
|00000390| 20 24 32 32 30 34 3b 0d | 74 65 49 6e 76 61 6c 69 | $2204;.|teInvali|
|000003a0| 64 50 61 72 61 6d 65 74 | 65 72 20 3d 20 24 32 32 |dParamet|er = $22|
|000003b0| 30 42 3b 0d 74 65 49 6e | 76 61 6c 69 64 54 65 78 |0B;.teIn|validTex|
|000003c0| 74 42 6f 78 32 20 3d 20 | 24 32 32 30 43 3b 0d 74 |tBox2 = |$220C;.t|
|000003d0| 65 4e 65 65 64 73 54 6f | 6f 6c 73 20 3d 20 24 32 |eNeedsTo|ols = $2|
|000003e0| 32 30 44 3b 0d 74 65 45 | 71 75 61 6c 4c 69 6e 65 |20D;.teE|qualLine|
|000003f0| 53 70 61 63 69 6e 67 20 | 3d 20 24 38 30 30 30 3b |Spacing |= $8000;|
|00000400| 0d 74 65 53 68 6f 77 49 | 6e 76 69 73 69 62 6c 65 |.teShowI|nvisible|
|00000410| 73 20 3d 20 24 34 30 30 | 30 3b 0d 0d 7b 20 4a 75 |s = $400|0;..{ Ju|
|00000420| 73 74 69 66 69 63 61 74 | 69 6f 6e 20 56 61 6c 75 |stificat|ion Valu|
|00000430| 65 73 20 7d 0d 6c 65 66 | 74 4a 75 73 74 20 3d 20 |es }.lef|tJust = |
|00000440| 24 30 30 30 30 3b 0d 72 | 69 67 68 74 4a 75 73 74 |$0000;.r|ightJust|
|00000450| 20 3d 20 24 46 46 46 46 | 3b 0d 63 65 6e 74 65 72 | = $FFFF|;.center|
|00000460| 4a 75 73 74 20 3d 20 24 | 30 30 30 31 3b 0d 66 75 |Just = $|0001;.fu|
|00000470| 6c 6c 4a 75 73 74 20 3d | 20 24 30 30 30 32 3b 0d |llJust =| $0002;.|
|00000480| 0d 7b 20 54 45 52 75 6c | 65 72 2e 74 61 62 54 79 |.{ TERul|er.tabTy|
|00000490| 70 65 20 43 6f 64 65 73 | 20 7d 0d 6e 6f 54 61 62 |pe Codes| }.noTab|
|000004a0| 73 20 3d 20 24 30 30 30 | 30 3b 0d 73 74 64 54 61 |s = $000|0;.stdTa|
|000004b0| 62 73 20 3d 20 24 30 30 | 30 31 3b 20 20 7b 20 54 |bs = $00|01;  { T|
|000004c0| 61 62 73 20 65 76 65 72 | 79 20 74 61 62 54 65 72 |abs ever|y tabTer|
|000004d0| 6d 69 6e 61 74 6f 72 20 | 70 69 78 65 6c 73 20 7d |minator |pixels }|
|000004e0| 0d 61 62 73 54 61 62 73 | 20 3d 20 24 30 30 30 32 |.absTabs| = $0002|
|000004f0| 3b 20 20 7b 20 54 61 62 | 73 20 61 74 20 61 62 73 |;  { Tab|s at abs|
|00000500| 6f 6c 75 74 65 20 6c 6f | 63 61 74 69 6f 6e 20 73 |olute lo|cation s|
|00000510| 70 65 63 69 66 69 65 64 | 20 62 79 20 74 68 65 54 |pecified| by theT|
|00000520| 61 62 73 20 61 72 72 61 | 79 20 7d 0d 0d 7b 20 54 |abs arra|y }..{ T|
|00000530| 45 50 61 72 61 6d 42 6c | 6f 63 6b 2e 66 6c 61 67 |EParamBl|ock.flag|
|00000540| 73 20 43 6f 64 65 73 20 | 7d 0d 66 43 74 6c 49 6e |s Codes |}.fCtlIn|
|00000550| 76 69 73 20 3d 20 24 30 | 30 38 30 3b 0d 66 52 65 |vis = $0|080;.fRe|
|00000560| 63 6f 72 64 44 69 72 74 | 79 20 3d 20 24 30 30 34 |cordDirt|y = $004|
|00000570| 30 3b 0d 0d 7b 20 54 45 | 20 54 61 62 20 43 6f 64 |0;..{ TE| Tab Cod|
|00000580| 65 73 20 7d 0d 74 65 4c | 65 66 74 54 61 62 20 3d |es }.teL|eftTab =|
|00000590| 20 24 30 30 30 30 3b 0d | 74 65 43 65 6e 74 65 72 | $0000;.|teCenter|
|000005a0| 54 61 62 20 3d 20 24 30 | 30 30 31 3b 0d 74 65 52 |Tab = $0|001;.teR|
|000005b0| 69 67 68 74 54 61 62 20 | 3d 20 24 30 30 30 32 3b |ightTab |= $0002;|
|000005c0| 0d 74 65 44 65 63 69 6d | 61 6c 54 61 62 20 3d 20 |.teDecim|alTab = |
|000005d0| 24 30 30 30 33 3b 0d 0d | 7b 20 54 45 50 61 72 61 |$0003;..|{ TEPara|
|000005e0| 6d 42 6c 6f 63 6b 2e 74 | 65 78 74 46 6c 61 67 73 |mBlock.t|extFlags|
|000005f0| 20 43 6f 64 65 73 20 7d | 0d 66 4e 6f 74 43 6f 6e | Codes }|.fNotCon|
|00000600| 74 72 6f 6c 20 3d 20 24 | 38 30 30 30 30 30 30 30 |trol = $|80000000|
|00000610| 3b 20 20 7b 20 54 65 78 | 74 45 64 69 74 20 72 65 |;  { Tex|tEdit re|
|00000620| 63 6f 72 64 20 69 73 20 | 6e 6f 74 20 61 20 63 6f |cord is |not a co|
|00000630| 6e 74 72 6f 6c 20 7d 0d | 66 53 69 6e 67 6c 65 46 |ntrol }.|fSingleF|
|00000640| 6f 72 6d 61 74 20 3d 20 | 24 34 30 30 30 30 30 30 |ormat = |$4000000|
|00000650| 30 3b 20 20 7b 20 4f 6e | 6c 79 20 6f 6e 65 20 72 |0;  { On|ly one r|
|00000660| 75 6c 65 72 20 69 73 20 | 61 6c 6c 6f 77 65 64 20 |uler is |allowed |
|00000670| 66 6f 72 20 72 65 63 6f | 72 64 20 7d 0d 66 53 69 |for reco|rd }.fSi|
|00000680| 6e 67 6c 65 53 74 79 6c | 65 20 3d 20 24 32 30 30 |ngleStyl|e = $200|
|00000690| 30 30 30 30 30 3b 20 20 | 7b 20 4f 6e 6c 79 20 6f |00000;  |{ Only o|
|000006a0| 6e 65 20 73 74 79 6c 65 | 20 69 73 20 61 6c 6c 6f |ne style| is allo|
|000006b0| 77 65 64 20 66 6f 72 20 | 72 65 63 6f 72 64 20 7d |wed for |record }|
|000006c0| 0d 66 4e 6f 57 6f 72 64 | 57 72 61 70 20 3d 20 24 |.fNoWord|Wrap = $|
|000006d0| 31 30 30 30 30 30 30 30 | 3b 20 20 7b 20 4e 6f 20 |10000000|;  { No |
|000006e0| 77 6f 72 64 20 77 72 61 | 70 20 69 73 20 70 65 72 |word wra|p is per|
|000006f0| 66 6f 72 6d 65 64 20 7d | 0d 66 4e 6f 53 63 72 6f |formed }|.fNoScro|
|00000700| 6c 6c 20 3d 20 24 30 38 | 30 30 30 30 30 30 3b 20 |ll = $08|000000; |
|00000710| 20 7b 20 54 68 65 20 74 | 65 78 74 20 63 61 6e 6e | { The t|ext cann|
|00000720| 6f 74 20 73 63 72 6f 6c | 6c 20 7d 0d 66 52 65 61 |ot scrol|l }.fRea|
|00000730| 64 4f 6e 6c 79 20 3d 20 | 24 30 34 30 30 30 30 30 |dOnly = |$0400000|
|00000740| 30 3b 20 20 7b 20 54 68 | 65 20 74 65 78 74 20 63 |0;  { Th|e text c|
|00000750| 61 6e 6e 6f 74 20 62 65 | 20 65 64 69 74 65 64 20 |annot be| edited |
|00000760| 7d 0d 66 53 6d 61 72 74 | 43 75 74 50 61 73 74 65 |}.fSmart|CutPaste|
|00000770| 20 3d 20 24 30 32 30 30 | 30 30 30 30 3b 20 20 7b | = $0200|0000;  {|
|00000780| 20 52 65 63 6f 72 64 20 | 73 75 70 70 6f 72 74 73 | Record |supports|
|00000790| 20 69 6e 74 65 6c 6c 69 | 67 65 6e 74 20 63 75 74 | intelli|gent cut|
|000007a0| 20 61 6e 64 20 70 61 73 | 74 65 20 7d 0d 66 54 61 | and pas|te }.fTa|
|000007b0| 62 53 77 69 74 63 68 20 | 3d 20 24 30 31 30 30 30 |bSwitch |= $01000|
|000007c0| 30 30 30 3b 20 20 7b 20 | 54 61 62 20 6b 65 79 20 |000;  { |Tab key |
|000007d0| 73 77 69 74 63 68 65 73 | 20 75 73 65 72 20 74 6f |switches| user to|
|000007e0| 20 6e 65 78 74 20 54 65 | 78 74 45 64 69 74 20 72 | next Te|xtEdit r|
|000007f0| 65 63 6f 72 64 20 6f 6e | 20 74 68 65 20 73 63 72 |ecord on| the scr|
|00000800| 65 65 6e 20 7d 0d 66 44 | 72 61 77 42 6f 75 6e 64 |een }.fD|rawBound|
|00000810| 73 20 3d 20 24 30 30 38 | 30 30 30 30 30 3b 20 20 |s = $008|00000;  |
|00000820| 7b 20 54 65 78 74 45 64 | 69 74 20 64 72 61 77 20 |{ TextEd|it draw |
|00000830| 61 20 62 6f 78 20 61 72 | 6f 75 6e 64 20 74 65 78 |a box ar|ound tex|
|00000840| 74 20 7d 0d 66 43 6f 6c | 6f 72 48 69 6c 69 67 68 |t }.fCol|orHiligh|
|00000850| 74 20 3d 20 24 30 30 34 | 30 30 30 30 30 3b 20 20 |t = $004|00000;  |
|00000860| 7b 20 55 73 65 20 63 6f | 6c 6f 72 20 74 61 62 6c |{ Use co|lor tabl|
|00000870| 65 20 66 6f 72 20 68 69 | 67 68 6c 69 67 68 74 69 |e for hi|ghlighti|
|00000880| 6e 67 20 7d 0d 66 47 72 | 6f 77 52 75 6c 65 72 20 |ng }.fGr|owRuler |
|00000890| 3d 20 24 30 30 32 30 30 | 30 30 30 3b 20 20 7b 20 |= $00200|000;  { |
|000008a0| 41 64 6a 75 73 74 20 72 | 69 67 68 74 20 6d 61 72 |Adjust r|ight mar|
|000008b0| 67 69 6e 20 77 68 65 6e | 65 76 65 72 20 77 69 6e |gin when|ever win|
|000008c0| 64 6f 77 20 73 69 7a 65 | 20 63 68 61 6e 67 65 73 |dow size| changes|
|000008d0| 20 7d 0d 66 44 69 73 61 | 62 6c 65 53 65 6c 65 63 | }.fDisa|bleSelec|
|000008e0| 74 69 6f 6e 20 3d 20 24 | 30 30 31 30 30 30 30 30 |tion = $|00100000|
|000008f0| 3b 20 20 7b 20 55 73 65 | 72 20 63 61 6e 6e 6f 74 |;  { Use|r cannot|
|00000900| 20 73 65 6c 65 63 74 20 | 6f 72 20 65 64 69 74 20 | select |or edit |
|00000910| 74 65 78 74 20 7d 0d 66 | 44 72 61 77 49 6e 61 63 |text }.f|DrawInac|
|00000920| 74 69 76 65 53 65 6c 65 | 63 74 69 6f 6e 20 3d 20 |tiveSele|ction = |
|00000930| 24 30 30 30 38 30 30 30 | 30 3b 20 20 7b 20 54 65 |$0008000|0;  { Te|
|00000940| 78 74 45 64 69 74 20 64 | 69 73 70 6c 61 79 73 20 |xtEdit d|isplays |
|00000950| 61 20 62 6f 78 20 61 72 | 6f 75 6e 64 20 61 6e 20 |a box ar|ound an |
|00000960| 69 6e 61 63 74 69 76 65 | 20 73 65 6c 65 63 74 69 |inactive| selecti|
|00000970| 6f 6e 20 7d 0d 0d 7b 20 | 44 65 73 63 72 69 70 74 |on }..{ |Descript|
|00000980| 6f 72 20 43 6f 64 65 73 | 20 7d 0d 74 65 43 74 6c |or Codes| }.teCtl|
|00000990| 43 6f 6c 6f 72 49 73 50 | 74 72 20 3d 20 24 30 30 |ColorIsP|tr = $00|
|000009a0| 30 30 3b 0d 74 65 43 74 | 6c 43 6f 6c 6f 72 49 73 |00;.teCt|lColorIs|
|000009b0| 48 61 6e 64 6c 65 20 3d | 20 24 30 30 30 34 3b 0d |Handle =| $0004;.|
|000009c0| 74 65 43 74 6c 43 6f 6c | 6f 72 49 73 52 65 73 6f |teCtlCol|orIsReso|
|000009d0| 75 72 63 65 20 3d 20 24 | 30 30 30 38 3b 0d 74 65 |urce = $|0008;.te|
|000009e0| 43 74 6c 53 74 79 6c 65 | 49 73 50 74 72 20 3d 20 |CtlStyle|IsPtr = |
|000009f0| 24 30 30 30 30 3b 0d 74 | 65 43 74 6c 53 74 79 6c |$0000;.t|eCtlStyl|
|00000a00| 65 49 73 48 61 6e 64 6c | 65 20 3d 20 24 30 30 30 |eIsHandl|e = $000|
|00000a10| 31 3b 0d 74 65 43 74 6c | 53 74 79 6c 65 49 73 52 |1;.teCtl|StyleIsR|
|00000a20| 65 73 6f 75 72 63 65 20 | 3d 20 24 30 30 30 32 3b |esource |= $0002;|
|00000a30| 0d 74 65 52 65 66 49 73 | 50 74 72 20 3d 20 24 30 |.teRefIs|Ptr = $0|
|00000a40| 30 30 30 3b 0d 74 65 52 | 65 66 49 73 48 61 6e 64 |000;.teR|efIsHand|
|00000a50| 6c 65 20 3d 20 24 30 30 | 30 31 3b 0d 74 65 52 65 |le = $00|01;.teRe|
|00000a60| 66 49 73 52 65 73 6f 75 | 72 63 65 20 3d 20 24 30 |fIsResou|rce = $0|
|00000a70| 30 30 32 3b 0d 74 65 52 | 65 66 49 73 4e 65 77 48 |002;.teR|efIsNewH|
|00000a80| 61 6e 64 6c 65 20 3d 20 | 24 30 30 30 33 3b 0d 74 |andle = |$0003;.t|
|00000a90| 65 44 61 74 61 49 73 50 | 53 74 72 69 6e 67 20 3d |eDataIsP|String =|
|00000aa0| 20 24 30 30 30 30 3b 0d | 74 65 44 61 74 61 49 73 | $0000;.|teDataIs|
|00000ab0| 43 53 74 72 69 6e 67 20 | 3d 20 24 30 30 30 31 3b |CString |= $0001;|
|00000ac0| 0d 74 65 44 61 74 61 49 | 73 43 31 49 6e 70 75 74 |.teDataI|sC1Input|
|00000ad0| 20 3d 20 24 30 30 30 32 | 3b 0d 74 65 44 61 74 61 | = $0002|;.teData|
|00000ae0| 49 73 43 31 4f 75 74 70 | 75 74 20 3d 20 24 30 30 |IsC1Outp|ut = $00|
|00000af0| 30 33 3b 0d 74 65 44 61 | 74 61 49 73 54 65 78 74 |03;.teDa|taIsText|
|00000b00| 42 6f 78 32 20 3d 20 24 | 30 30 30 34 3b 0d 74 65 |Box2 = $|0004;.te|
|00000b10| 44 61 74 61 49 73 54 65 | 78 74 42 6c 6f 63 6b 20 |DataIsTe|xtBlock |
|00000b20| 3d 20 24 30 30 30 35 3b | 0d 74 65 54 65 78 74 49 |= $0005;|.teTextI|
|00000b30| 73 50 74 72 20 3d 20 24 | 30 30 30 30 3b 0d 74 65 |sPtr = $|0000;.te|
|00000b40| 54 65 78 74 49 73 48 61 | 6e 64 6c 65 20 3d 20 24 |TextIsHa|ndle = $|
|00000b50| 30 30 30 38 3b 0d 74 65 | 54 65 78 74 49 73 52 65 |0008;.te|TextIsRe|
|00000b60| 73 6f 75 72 63 65 20 3d | 20 24 30 30 31 30 3b 0d |source =| $0010;.|
|00000b70| 74 65 54 65 78 74 49 73 | 4e 65 77 48 61 6e 64 6c |teTextIs|NewHandl|
|00000b80| 65 20 3d 20 24 30 30 31 | 38 3b 0d 0d 7b 20 54 45 |e = $001|8;..{ TE|
|00000b90| 47 65 74 4c 61 73 74 45 | 72 72 6f 72 20 63 6c 65 |GetLastE|rror cle|
|00000ba0| 61 72 46 6c 61 67 20 43 | 6f 64 65 73 20 7d 0d 66 |arFlag C|odes }.f|
|00000bb0| 4c 65 61 76 65 45 72 72 | 6f 72 20 3d 20 24 30 30 |LeaveErr|or = $00|
|00000bc0| 30 30 3b 20 20 7b 20 4c | 65 61 76 65 20 74 68 65 |00;  { L|eave the|
|00000bd0| 20 6c 61 73 74 20 65 72 | 72 6f 72 20 63 6f 64 65 | last er|ror code|
|00000be0| 20 69 6e 74 61 63 74 20 | 7d 0d 66 43 6c 65 61 72 | intact |}.fClear|
|00000bf0| 45 72 72 6f 72 20 3d 20 | 24 46 46 46 46 3b 20 20 |Error = |$FFFF;  |
|00000c00| 7b 20 43 6c 65 61 72 20 | 74 68 65 20 6c 61 73 74 |{ Clear |the last|
|00000c10| 20 65 72 72 6f 72 20 63 | 6f 64 65 20 7d 0d 0d 7b | error c|ode }..{|
|00000c20| 20 4f 74 68 65 72 20 43 | 6f 6e 73 74 61 6e 74 73 | Other C|onstants|
|00000c30| 20 7d 0d 74 65 49 6e 76 | 69 73 20 3d 20 24 34 30 | }.teInv|is = $40|
|00000c40| 30 30 3b 0d 74 65 50 61 | 72 74 69 61 6c 4c 69 6e |00;.tePa|rtialLin|
|00000c50| 65 73 20 3d 20 24 38 30 | 30 30 3b 0d 74 65 44 6f |es = $80|00;.teDo|
|00000c60| 6e 74 44 72 61 77 20 3d | 20 24 34 30 30 30 3b 0d |ntDraw =| $4000;.|
|00000c70| 74 65 55 73 65 46 6f 6e | 74 20 3d 20 24 30 30 32 |teUseFon|t = $002|
|00000c80| 30 3b 0d 74 65 55 73 65 | 53 69 7a 65 20 3d 20 24 |0;.teUse|Size = $|
|00000c90| 30 30 31 30 3b 0d 74 65 | 55 73 65 46 6f 72 65 43 |0010;.te|UseForeC|
|00000ca0| 6f 6c 6f 72 20 3d 20 24 | 30 30 30 38 3b 0d 74 65 |olor = $|0008;.te|
|00000cb0| 55 73 65 42 61 63 6b 43 | 6f 6c 6f 72 20 3d 20 24 |UseBackC|olor = $|
|00000cc0| 30 30 30 34 3b 0d 74 65 | 55 73 65 55 73 65 72 44 |0004;.te|UseUserD|
|00000cd0| 61 74 61 20 3d 20 24 30 | 30 30 32 3b 0d 74 65 55 |ata = $0|002;.teU|
|00000ce0| 73 65 41 74 74 72 69 62 | 75 74 65 73 20 3d 20 24 |seAttrib|utes = $|
|00000cf0| 30 30 30 31 3b 0d 74 65 | 52 65 70 6c 61 63 65 46 |0001;.te|ReplaceF|
|00000d00| 6f 6e 74 20 3d 20 24 30 | 30 34 30 3b 0d 74 65 52 |ont = $0|040;.teR|
|00000d10| 65 70 6c 61 63 65 53 69 | 7a 65 20 3d 20 24 30 30 |eplaceSi|ze = $00|
|00000d20| 32 30 3b 0d 74 65 52 65 | 70 6c 61 63 65 46 6f 72 |20;.teRe|placeFor|
|00000d30| 65 43 6f 6c 6f 72 20 3d | 20 24 30 30 31 30 3b 0d |eColor =| $0010;.|
|00000d40| 74 65 52 65 70 6c 61 63 | 65 42 61 63 6b 43 6f 6c |teReplac|eBackCol|
|00000d50| 6f 72 20 3d 20 24 30 30 | 30 38 3b 0d 74 65 52 65 |or = $00|08;.teRe|
|00000d60| 70 6c 61 63 65 55 73 65 | 72 46 69 65 6c 64 20 3d |placeUse|rField =|
|00000d70| 20 24 30 30 30 34 3b 0d | 74 65 52 65 70 6c 61 63 | $0004;.|teReplac|
|00000d80| 65 41 74 74 72 69 62 75 | 74 65 73 20 3d 20 24 30 |eAttribu|tes = $0|
|00000d90| 30 30 32 3b 0d 74 65 53 | 77 69 74 63 68 41 74 74 |002;.teS|witchAtt|
|00000da0| 72 69 62 75 74 65 73 20 | 3d 20 24 30 30 30 31 3b |ributes |= $0001;|
|00000db0| 0d 0d 7b 20 46 69 6c 74 | 65 72 20 50 72 6f 63 65 |..{ Filt|er Proce|
|00000dc0| 64 75 72 65 20 43 6f 6d | 6d 61 6e 64 73 20 7d 0d |dure Com|mands }.|
|00000dd0| 64 6f 45 72 61 73 65 52 | 65 63 74 20 3d 20 24 30 |doEraseR|ect = $0|
|00000de0| 30 30 31 3b 0d 64 6f 45 | 72 61 73 65 42 75 66 66 |001;.doE|raseBuff|
|00000df0| 65 72 20 3d 20 24 30 30 | 30 32 3b 0d 64 6f 52 65 |er = $00|02;.doRe|
|00000e00| 63 74 43 68 61 6e 67 65 | 64 20 3d 20 24 30 30 30 |ctChange|d = $000|
|00000e10| 33 3b 0d 64 6f 4b 65 79 | 53 74 72 6f 6b 65 20 3d |3;.doKey|Stroke =|
|00000e20| 20 24 30 30 30 34 3b 0d | 0d 7b 20 54 45 53 63 72 | $0004;.|.{ TEScr|
|00000e30| 6f 6c 6c 20 64 65 73 63 | 72 69 70 74 6f 72 73 20 |oll desc|riptors |
|00000e40| 7d 0d 74 65 53 63 72 6f | 6c 6c 41 62 73 54 6f 70 |}.teScro|llAbsTop|
|00000e50| 20 3d 20 24 30 30 30 30 | 3b 0d 74 65 53 63 72 6f | = $0000|;.teScro|
|00000e60| 6c 6c 41 62 73 43 65 6e | 74 65 72 20 3d 20 24 30 |llAbsCen|ter = $0|
|00000e70| 30 30 31 3b 0d 74 65 53 | 63 72 6f 6c 6c 4c 69 6e |001;.teS|crollLin|
|00000e80| 65 54 6f 70 20 3d 20 24 | 30 30 30 32 3b 0d 74 65 |eTop = $|0002;.te|
|00000e90| 53 63 72 6f 6c 6c 4c 69 | 6e 65 43 65 6e 74 65 72 |ScrollLi|neCenter|
|00000ea0| 20 3d 20 24 30 30 30 33 | 3b 0d 74 65 53 63 72 6f | = $0003|;.teScro|
|00000eb0| 6c 6c 41 62 73 55 6e 69 | 74 20 3d 20 24 30 30 30 |llAbsUni|t = $000|
|00000ec0| 34 3b 0d 74 65 53 63 72 | 6f 6c 6c 52 65 6c 55 6e |4;.teScr|ollRelUn|
|00000ed0| 69 74 20 3d 20 24 30 30 | 30 35 3b 0d 0d 54 59 50 |it = $00|05;..TYP|
|00000ee0| 45 0d 0d 54 45 54 65 78 | 74 42 6c 6f 63 6b 48 6e |E..TETex|tBlockHn|
|00000ef0| 64 6c 20 3d 20 5e 54 45 | 54 65 78 74 42 6c 6f 63 |dl = ^TE|TextBloc|
|00000f00| 6b 50 74 72 3b 0d 54 45 | 54 65 78 74 42 6c 6f 63 |kPtr;.TE|TextBloc|
|00000f10| 6b 50 74 72 20 3d 20 5e | 54 45 54 65 78 74 42 6c |kPtr = ^|TETextBl|
|00000f20| 6f 63 6b 3b 0d 54 45 54 | 65 78 74 42 6c 6f 63 6b |ock;.TET|extBlock|
|00000f30| 20 3d 20 52 45 43 4f 52 | 44 0d 20 20 20 20 6e 65 | = RECOR|D.    ne|
|00000f40| 78 74 48 61 6e 64 6c 65 | 20 3a 20 54 45 54 65 78 |xtHandle| : TETex|
|00000f50| 74 42 6c 6f 63 6b 48 6e | 64 6c 3b 20 7b 20 48 61 |tBlockHn|dl; { Ha|
|00000f60| 6e 64 6c 65 20 74 6f 20 | 6e 65 78 74 20 54 65 78 |ndle to |next Tex|
|00000f70| 74 42 6c 6f 63 6b 20 69 | 6e 20 6c 69 73 74 20 7d |tBlock i|n list }|
|00000f80| 0d 20 20 20 20 70 72 65 | 76 48 61 6e 64 6c 65 20 |.    pre|vHandle |
|00000f90| 3a 20 54 45 54 65 78 74 | 42 6c 6f 63 6b 48 6e 64 |: TEText|BlockHnd|
|00000fa0| 6c 3b 20 7b 20 48 61 6e | 64 6c 65 20 74 6f 20 70 |l; { Han|dle to p|
|00000fb0| 72 65 76 69 6f 75 73 20 | 54 65 78 74 42 6c 6f 63 |revious |TextBloc|
|00000fc0| 6b 20 69 6e 20 6c 69 73 | 74 20 7d 0d 20 20 20 20 |k in lis|t }.    |
|00000fd0| 74 65 78 74 4c 65 6e 67 | 74 68 20 3a 20 4c 6f 6e |textLeng|th : Lon|
|00000fe0| 67 69 6e 74 3b 20 7b 20 | 4e 75 6d 62 65 72 20 6f |gint; { |Number o|
|00000ff0| 66 20 62 79 74 65 73 20 | 6f 66 20 74 68 65 54 65 |f bytes |of theTe|
|00001000| 78 74 20 7d 0d 20 20 20 | 20 66 6c 61 67 73 20 3a |xt }.   | flags :|
|00001010| 20 49 6e 74 65 67 65 72 | 3b 0d 20 20 20 20 72 65 | Integer|;.    re|
|00001020| 73 65 72 76 65 64 20 3a | 20 49 6e 74 65 67 65 72 |served :| Integer|
|00001030| 3b 20 7b 20 52 65 73 65 | 72 76 65 64 20 7d 0d 20 |; { Rese|rved }. |
|00001040| 20 20 20 74 68 65 54 65 | 78 74 20 3a 20 50 41 43 |   theTe|xt : PAC|
|00001050| 4b 45 44 20 41 52 52 41 | 59 5b 31 2e 2e 31 5d 20 |KED ARRA|Y[1..1] |
|00001060| 4f 46 20 42 79 74 65 3b | 20 7b 20 74 65 78 74 4c |OF Byte;| { textL|
|00001070| 65 6e 67 74 68 20 62 79 | 74 65 73 20 6f 66 20 74 |ength by|tes of t|
|00001080| 65 78 74 20 20 7d 0d 45 | 4e 44 3b 0d 0d 54 45 54 |ext  }.E|ND;..TET|
|00001090| 65 78 74 4c 69 73 74 48 | 6e 64 6c 20 3d 20 5e 54 |extListH|ndl = ^T|
|000010a0| 45 54 65 78 74 4c 69 73 | 74 50 74 72 3b 0d 54 45 |ETextLis|tPtr;.TE|
|000010b0| 54 65 78 74 4c 69 73 74 | 50 74 72 20 3d 20 5e 54 |TextList|Ptr = ^T|
|000010c0| 45 54 65 78 74 4c 69 73 | 74 3b 0d 54 45 54 65 78 |ETextLis|t;.TETex|
|000010d0| 74 4c 69 73 74 20 3d 20 | 52 45 43 4f 52 44 0d 20 |tList = |RECORD. |
|000010e0| 20 20 20 63 61 63 68 65 | 64 48 61 6e 64 6c 65 20 |   cache|dHandle |
|000010f0| 3a 20 54 45 54 65 78 74 | 42 6c 6f 63 6b 48 6e 64 |: TEText|BlockHnd|
|00001100| 6c 3b 20 7b 20 48 61 6e | 64 6c 65 20 74 6f 20 63 |l; { Han|dle to c|
|00001110| 75 72 72 65 6e 74 20 54 | 65 78 74 42 6c 6f 63 6b |urrent T|extBlock|
|00001120| 20 7d 0d 20 20 20 20 63 | 61 63 68 65 64 4f 66 66 | }.    c|achedOff|
|00001130| 73 65 74 20 3a 20 4c 6f | 6e 67 69 6e 74 3b 20 7b |set : Lo|ngint; {|
|00001140| 20 54 65 78 74 20 6f 66 | 66 73 65 74 20 6f 66 20 | Text of|fset of |
|00001150| 74 68 65 20 73 74 61 72 | 74 20 6f 66 20 74 68 65 |the star|t of the|
|00001160| 20 63 75 72 72 65 6e 74 | 20 54 65 78 74 42 6c 6f | current| TextBlo|
|00001170| 63 6b 20 7d 0d 45 4e 44 | 3b 0d 0d 54 45 43 6f 6c |ck }.END|;..TECol|
|00001180| 6f 72 54 61 62 6c 65 48 | 6e 64 6c 20 3d 20 5e 54 |orTableH|ndl = ^T|
|00001190| 45 43 6f 6c 6f 72 54 61 | 62 6c 65 50 74 72 3b 0d |EColorTa|blePtr;.|
|000011a0| 54 45 43 6f 6c 6f 72 54 | 61 62 6c 65 50 74 72 20 |TEColorT|ablePtr |
|000011b0| 3d 20 5e 54 45 43 6f 6c | 6f 72 54 61 62 6c 65 3b |= ^TECol|orTable;|
|000011c0| 0d 54 45 43 6f 6c 6f 72 | 54 61 62 6c 65 20 3d 20 |.TEColor|Table = |
|000011d0| 52 45 43 4f 52 44 0d 20 | 20 20 20 63 6f 6e 74 65 |RECORD. |   conte|
|000011e0| 6e 74 43 6f 6c 6f 72 20 | 3a 20 49 6e 74 65 67 65 |ntColor |: Intege|
|000011f0| 72 3b 0d 20 20 20 20 6f | 75 74 6c 69 6e 65 43 6f |r;.    o|utlineCo|
|00001200| 6c 6f 72 20 3a 20 49 6e | 74 65 67 65 72 3b 0d 20 |lor : In|teger;. |
|00001210| 20 20 20 68 69 6c 69 74 | 65 46 6f 72 65 43 6f 6c |   hilit|eForeCol|
|00001220| 6f 72 20 3a 20 49 6e 74 | 65 67 65 72 3b 0d 20 20 |or : Int|eger;.  |
|00001230| 20 20 68 69 6c 69 74 65 | 42 61 63 6b 43 6f 6c 6f |  hilite|BackColo|
|00001240| 72 20 3a 20 49 6e 74 65 | 67 65 72 3b 0d 20 20 20 |r : Inte|ger;.   |
|00001250| 20 76 65 72 74 43 6f 6c | 6f 72 44 65 73 63 72 69 | vertCol|orDescri|
|00001260| 70 74 6f 72 20 3a 20 49 | 6e 74 65 67 65 72 3b 0d |ptor : I|nteger;.|
|00001270| 20 20 20 20 76 65 72 74 | 43 6f 6c 6f 72 52 65 66 |    vert|ColorRef|
|00001280| 20 3a 20 4c 6f 6e 67 69 | 6e 74 3b 0d 20 20 20 20 | : Longi|nt;.    |
|00001290| 68 6f 72 7a 43 6f 6c 6f | 72 44 65 73 63 72 69 70 |horzColo|rDescrip|
|000012a0| 74 6f 72 20 3a 20 49 6e | 74 65 67 65 72 3b 0d 20 |tor : In|teger;. |
|000012b0| 20 20 20 68 6f 72 7a 43 | 6f 6c 6f 72 52 65 66 20 |   horzC|olorRef |
|000012c0| 3a 20 4c 6f 6e 67 69 6e | 74 3b 0d 20 20 20 20 67 |: Longin|t;.    g|
|000012d0| 72 6f 77 43 6f 6c 6f 72 | 44 65 73 63 72 69 70 74 |rowColor|Descript|
|000012e0| 6f 72 20 3a 20 49 6e 74 | 65 67 65 72 3b 0d 20 20 |or : Int|eger;.  |
|000012f0| 20 20 67 72 6f 77 43 6f | 6c 6f 72 52 65 66 20 3a |  growCo|lorRef :|
|00001300| 20 4c 6f 6e 67 69 6e 74 | 3b 0d 45 4e 44 3b 0d 0d | Longint|;.END;..|
|00001310| 54 45 42 6c 6f 63 6b 45 | 6e 74 72 79 20 3d 20 52 |TEBlockE|ntry = R|
|00001320| 45 43 4f 52 44 0d 20 20 | 20 20 74 65 78 74 20 3a |ECORD.  |  text :|
|00001330| 20 48 61 6e 64 6c 65 3b | 0d 20 20 20 20 6c 65 6e | Handle;|.    len|
|00001340| 67 74 68 20 3a 20 48 61 | 6e 64 6c 65 3b 0d 20 20 |gth : Ha|ndle;.  |
|00001350| 20 20 66 6c 61 67 73 20 | 3a 20 49 6e 74 65 67 65 |  flags |: Intege|
|00001360| 72 3b 0d 45 4e 44 3b 0d | 0d 54 45 42 6c 6f 63 6b |r;.END;.|.TEBlock|
|00001370| 73 48 6e 64 6c 20 3d 20 | 5e 54 45 42 6c 6f 63 6b |sHndl = |^TEBlock|
|00001380| 73 50 74 72 3b 0d 54 45 | 42 6c 6f 63 6b 73 50 74 |sPtr;.TE|BlocksPt|
|00001390| 72 20 3d 20 5e 54 45 42 | 6c 6f 63 6b 73 52 65 63 |r = ^TEB|locksRec|
|000013a0| 6f 72 64 3b 0d 54 45 42 | 6c 6f 63 6b 73 52 65 63 |ord;.TEB|locksRec|
|000013b0| 6f 72 64 20 3d 20 52 45 | 43 4f 52 44 0d 20 20 20 |ord = RE|CORD.   |
|000013c0| 20 73 74 61 72 74 20 3a | 20 4c 6f 6e 67 69 6e 74 | start :| Longint|
|000013d0| 3b 0d 20 20 20 20 69 6e | 64 65 78 20 3a 20 49 6e |;.    in|dex : In|
|000013e0| 74 65 67 65 72 3b 0d 20 | 20 20 20 62 6c 6f 63 6b |teger;. |   block|
|000013f0| 73 20 3a 20 41 52 52 41 | 59 5b 31 2e 2e 31 5d 20 |s : ARRA|Y[1..1] |
|00001400| 4f 46 20 54 45 42 6c 6f | 63 6b 45 6e 74 72 79 3b |OF TEBlo|ckEntry;|
|00001410| 0d 45 4e 44 3b 0d 0d 54 | 61 62 49 74 65 6d 20 3d |.END;..T|abItem =|
|00001420| 20 52 45 43 4f 52 44 0d | 20 20 20 20 74 61 62 4b | RECORD.|    tabK|
|00001430| 69 6e 64 20 3a 20 49 6e | 74 65 67 65 72 3b 0d 20 |ind : In|teger;. |
|00001440| 20 20 20 74 61 62 44 61 | 74 61 20 3a 20 49 6e 74 |   tabDa|ta : Int|
|00001450| 65 67 65 72 3b 0d 45 4e | 44 3b 0d 0d 54 45 53 75 |eger;.EN|D;..TESu|
|00001460| 70 65 72 49 74 65 6d 48 | 6e 64 6c 20 3d 20 5e 54 |perItemH|ndl = ^T|
|00001470| 45 53 75 70 65 72 49 74 | 65 6d 50 74 72 3b 0d 54 |ESuperIt|emPtr;.T|
|00001480| 45 53 75 70 65 72 49 74 | 65 6d 50 74 72 20 3d 20 |ESuperIt|emPtr = |
|00001490| 5e 54 45 53 75 70 65 72 | 49 74 65 6d 3b 0d 54 45 |^TESuper|Item;.TE|
|000014a0| 53 75 70 65 72 49 74 65 | 6d 20 3d 20 52 45 43 4f |SuperIte|m = RECO|
|000014b0| 52 44 0d 20 20 20 20 69 | 74 65 6d 4c 65 6e 67 74 |RD.    i|temLengt|
|000014c0| 68 20 3a 20 4c 6f 6e 67 | 69 6e 74 3b 0d 20 20 20 |h : Long|int;.   |
|000014d0| 20 69 74 65 6d 44 61 74 | 61 20 3a 20 4c 6f 6e 67 | itemDat|a : Long|
|000014e0| 69 6e 74 3b 0d 45 4e 44 | 3b 0d 0d 54 45 53 75 70 |int;.END|;..TESup|
|000014f0| 65 72 42 6c 6f 63 6b 48 | 6e 64 6c 20 3d 20 5e 54 |erBlockH|ndl = ^T|
|00001500| 45 53 75 70 65 72 42 6c | 6f 63 6b 50 74 72 3b 0d |ESuperBl|ockPtr;.|
|00001510| 54 45 53 75 70 65 72 42 | 6c 6f 63 6b 50 74 72 20 |TESuperB|lockPtr |
|00001520| 3d 20 5e 54 45 53 75 70 | 65 72 42 6c 6f 63 6b 3b |= ^TESup|erBlock;|
|00001530| 0d 54 45 53 75 70 65 72 | 42 6c 6f 63 6b 20 3d 20 |.TESuper|Block = |
|00001540| 52 45 43 4f 52 44 0d 20 | 20 20 20 6e 65 78 74 48 |RECORD. |   nextH|
|00001550| 61 6e 64 6c 65 20 3a 20 | 54 45 53 75 70 65 72 42 |andle : |TESuperB|
|00001560| 6c 6f 63 6b 48 6e 64 6c | 3b 0d 20 20 20 20 70 72 |lockHndl|;.    pr|
|00001570| 65 76 48 61 6e 64 6c 65 | 20 3a 20 54 45 53 75 70 |evHandle| : TESup|
|00001580| 65 72 42 6c 6f 63 6b 48 | 6e 64 6c 3b 0d 20 20 20 |erBlockH|ndl;.   |
|00001590| 20 74 65 78 74 4c 65 6e | 67 74 68 20 3a 20 4c 6f | textLen|gth : Lo|
|000015a0| 6e 67 69 6e 74 3b 0d 20 | 20 20 20 72 65 73 65 72 |ngint;. |   reser|
|000015b0| 76 65 64 20 3a 20 4c 6f | 6e 67 69 6e 74 3b 0d 20 |ved : Lo|ngint;. |
|000015c0| 20 20 20 74 68 65 49 74 | 65 6d 73 20 3a 20 41 52 |   theIt|ems : AR|
|000015d0| 52 41 59 5b 31 2e 2e 31 | 5d 20 4f 46 20 54 45 53 |RAY[1..1|] OF TES|
|000015e0| 75 70 65 72 49 74 65 6d | 3b 0d 45 4e 44 3b 0d 0d |uperItem|;.END;..|
|000015f0| 54 45 53 75 70 65 72 48 | 61 6e 64 6c 65 48 6e 64 |TESuperH|andleHnd|
|00001600| 6c 20 3d 20 5e 54 45 53 | 75 70 65 72 48 61 6e 64 |l = ^TES|uperHand|
|00001610| 6c 65 50 74 72 3b 0d 54 | 45 53 75 70 65 72 48 61 |lePtr;.T|ESuperHa|
|00001620| 6e 64 6c 65 50 74 72 20 | 3d 20 5e 54 45 53 75 70 |ndlePtr |= ^TESup|
|00001630| 65 72 48 61 6e 64 6c 65 | 3b 0d 54 45 53 75 70 65 |erHandle|;.TESupe|
|00001640| 72 48 61 6e 64 6c 65 20 | 3d 20 52 45 43 4f 52 44 |rHandle |= RECORD|
|00001650| 0d 20 20 20 20 63 61 63 | 68 65 64 48 61 6e 64 6c |.    cac|hedHandl|
|00001660| 65 20 3a 20 54 45 53 75 | 70 65 72 42 6c 6f 63 6b |e : TESu|perBlock|
|00001670| 48 6e 64 6c 3b 0d 20 20 | 20 20 63 61 63 68 65 64 |Hndl;.  |  cached|
|00001680| 4f 66 66 73 65 74 20 3a | 20 4c 6f 6e 67 69 6e 74 |Offset :| Longint|
|00001690| 3b 0d 20 20 20 20 63 61 | 63 68 65 64 49 6e 64 65 |;.    ca|chedInde|
|000016a0| 78 20 3a 20 49 6e 74 65 | 67 65 72 3b 0d 20 20 20 |x : Inte|ger;.   |
|000016b0| 20 69 74 65 6d 73 50 65 | 72 42 6c 6f 63 6b 20 3a | itemsPe|rBlock :|
|000016c0| 20 49 6e 74 65 67 65 72 | 3b 0d 45 4e 44 3b 0d 0d | Integer|;.END;..|
|000016d0| 54 45 52 75 6c 65 72 48 | 6e 64 6c 20 3d 20 5e 54 |TERulerH|ndl = ^T|
|000016e0| 45 52 75 6c 65 72 50 74 | 72 3b 0d 54 45 52 75 6c |ERulerPt|r;.TERul|
|000016f0| 65 72 50 74 72 20 3d 20 | 5e 54 45 52 75 6c 65 72 |erPtr = |^TERuler|
|00001700| 3b 0d 54 45 52 75 6c 65 | 72 20 3d 20 52 45 43 4f |;.TERule|r = RECO|
|00001710| 52 44 0d 20 20 20 20 6c | 65 66 74 4d 61 72 67 69 |RD.    l|eftMargi|
|00001720| 6e 20 3a 20 49 6e 74 65 | 67 65 72 3b 0d 20 20 20 |n : Inte|ger;.   |
|00001730| 20 6c 65 66 74 49 6e 64 | 65 6e 74 20 3a 20 49 6e | leftInd|ent : In|
|00001740| 74 65 67 65 72 3b 0d 20 | 20 20 20 72 69 67 68 74 |teger;. |   right|
|00001750| 4d 61 72 67 69 6e 20 3a | 20 49 6e 74 65 67 65 72 |Margin :| Integer|
|00001760| 3b 0d 20 20 20 20 6a 75 | 73 74 20 3a 20 49 6e 74 |;.    ju|st : Int|
|00001770| 65 67 65 72 3b 0d 20 20 | 20 20 65 78 74 72 61 4c |eger;.  |  extraL|
|00001780| 53 20 3a 20 49 6e 74 65 | 67 65 72 3b 0d 20 20 20 |S : Inte|ger;.   |
|00001790| 20 66 6c 61 67 73 20 3a | 20 49 6e 74 65 67 65 72 | flags :| Integer|
|000017a0| 3b 0d 20 20 20 20 75 73 | 65 72 44 61 74 61 20 3a |;.    us|erData :|
|000017b0| 20 4c 6f 6e 67 69 6e 74 | 3b 0d 20 20 20 20 74 61 | Longint|;.    ta|
|000017c0| 62 54 79 70 65 20 3a 20 | 49 6e 74 65 67 65 72 3b |bType : |Integer;|
|000017d0| 0d 20 20 20 20 74 68 65 | 54 61 62 73 20 3a 20 41 |.    the|Tabs : A|
|000017e0| 52 52 41 59 5b 31 2e 2e | 31 5d 20 4f 46 20 54 61 |RRAY[1..|1] OF Ta|
|000017f0| 62 49 74 65 6d 3b 0d 20 | 20 20 20 74 61 62 54 65 |bItem;. |   tabTe|
|00001800| 72 6d 69 6e 61 74 6f 72 | 20 3a 20 49 6e 74 65 67 |rminator| : Integ|
|00001810| 65 72 3b 0d 45 4e 44 3b | 0d 0d 54 45 53 74 79 6c |er;.END;|..TEStyl|
|00001820| 65 48 6e 64 6c 20 3d 20 | 5e 54 45 53 74 79 6c 65 |eHndl = |^TEStyle|
|00001830| 50 74 72 3b 0d 54 45 53 | 74 79 6c 65 50 74 72 20 |Ptr;.TES|tylePtr |
|00001840| 3d 20 5e 54 45 53 74 79 | 6c 65 3b 0d 54 45 53 74 |= ^TESty|le;.TESt|
|00001850| 79 6c 65 20 3d 20 52 45 | 43 4f 52 44 0d 20 20 20 |yle = RE|CORD.   |
|00001860| 20 73 74 79 6c 65 46 6f | 6e 74 49 44 20 3a 20 46 | styleFo|ntID : F|
|00001870| 6f 6e 74 49 44 3b 0d 20 | 20 20 20 66 6f 72 65 43 |ontID;. |   foreC|
|00001880| 6f 6c 6f 72 20 3a 20 49 | 6e 74 65 67 65 72 3b 0d |olor : I|nteger;.|
|00001890| 20 20 20 20 62 61 63 6b | 43 6f 6c 6f 72 20 3a 20 |    back|Color : |
|000018a0| 49 6e 74 65 67 65 72 3b | 0d 20 20 20 20 75 73 65 |Integer;|.    use|
|000018b0| 72 44 61 74 61 20 3a 20 | 4c 6f 6e 67 69 6e 74 3b |rData : |Longint;|
|000018c0| 0d 45 4e 44 3b 0d 0d 54 | 45 53 74 79 6c 65 47 72 |.END;..T|EStyleGr|
|000018d0| 6f 75 70 48 6e 64 6c 20 | 3d 20 5e 54 45 53 74 79 |oupHndl |= ^TESty|
|000018e0| 6c 65 47 72 6f 75 70 50 | 74 72 3b 0d 54 45 53 74 |leGroupP|tr;.TESt|
|000018f0| 79 6c 65 47 72 6f 75 70 | 50 74 72 20 3d 20 5e 54 |yleGroup|Ptr = ^T|
|00001900| 45 53 74 79 6c 65 47 72 | 6f 75 70 3b 0d 54 45 53 |EStyleGr|oup;.TES|
|00001910| 74 79 6c 65 47 72 6f 75 | 70 20 3d 20 52 45 43 4f |tyleGrou|p = RECO|
|00001920| 52 44 0d 20 20 20 20 63 | 6f 75 6e 74 20 3a 20 49 |RD.    c|ount : I|
|00001930| 6e 74 65 67 65 72 3b 0d | 20 20 20 20 73 74 79 6c |nteger;.|    styl|
|00001940| 65 73 20 3a 20 41 52 52 | 41 59 5b 31 2e 2e 31 5d |es : ARR|AY[1..1]|
|00001950| 20 4f 46 20 54 45 53 74 | 79 6c 65 3b 0d 45 4e 44 | OF TESt|yle;.END|
|00001960| 3b 0d 0d 53 74 79 6c 65 | 49 74 65 6d 48 6e 64 6c |;..Style|ItemHndl|
|00001970| 20 3d 20 5e 53 74 79 6c | 65 49 74 65 6d 50 74 72 | = ^Styl|eItemPtr|
|00001980| 3b 0d 53 74 79 6c 65 49 | 74 65 6d 50 74 72 20 3d |;.StyleI|temPtr =|
|00001990| 20 5e 53 74 79 6c 65 49 | 74 65 6d 3b 0d 53 74 79 | ^StyleI|tem;.Sty|
|000019a0| 6c 65 49 74 65 6d 20 3d | 20 52 45 43 4f 52 44 0d |leItem =| RECORD.|
|000019b0| 20 20 20 20 64 61 74 61 | 4c 65 6e 67 74 68 20 3a |    data|Length :|
|000019c0| 20 4c 6f 6e 67 69 6e 74 | 3b 20 7b 20 4e 75 6d 62 | Longint|; { Numb|
|000019d0| 65 72 20 6f 66 20 74 65 | 78 74 20 63 68 61 72 61 |er of te|xt chara|
|000019e0| 63 74 65 72 73 20 75 73 | 69 6e 67 20 74 68 65 20 |cters us|ing the |
|000019f0| 73 74 79 6c 65 20 7d 0d | 20 20 20 20 64 61 74 61 |style }.|    data|
|00001a00| 4f 66 66 73 65 74 20 3a | 20 4c 6f 6e 67 69 6e 74 |Offset :| Longint|
|00001a10| 3b 20 7b 20 42 79 74 65 | 20 6f 66 66 73 65 74 20 |; { Byte| offset |
|00001a20| 69 6e 74 6f 20 74 68 65 | 53 74 79 6c 65 4c 69 73 |into the|StyleLis|
|00001a30| 74 20 65 6e 74 72 79 20 | 7d 0d 45 4e 44 3b 0d 0d |t entry |}.END;..|
|00001a40| 54 45 52 75 6c 65 72 52 | 65 66 20 3d 20 52 45 43 |TERulerR|ef = REC|
|00001a50| 4f 52 44 20 43 41 53 45 | 20 49 4e 54 45 47 45 52 |ORD CASE| INTEGER|
|00001a60| 20 4f 46 0d 20 20 20 20 | 20 74 65 52 65 66 49 73 | OF.    | teRefIs|
|00001a70| 50 74 72 3a 20 28 72 65 | 66 49 73 50 74 72 3a 20 |Ptr: (re|fIsPtr: |
|00001a80| 54 45 52 75 6c 65 72 50 | 74 72 29 3b 0d 20 20 20 |TERulerP|tr);.   |
|00001a90| 20 20 74 65 52 65 66 49 | 73 48 61 6e 64 6c 65 3a |  teRefI|sHandle:|
|00001aa0| 20 28 72 65 66 49 73 48 | 61 6e 64 6c 65 3a 20 54 | (refIsH|andle: T|
|00001ab0| 45 52 75 6c 65 72 48 6e | 64 6c 29 3b 0d 20 20 20 |ERulerHn|dl);.   |
|00001ac0| 20 20 74 65 52 65 66 49 | 73 52 65 73 6f 75 72 63 |  teRefI|sResourc|
|00001ad0| 65 3a 20 28 72 65 66 49 | 73 52 65 73 6f 75 72 63 |e: (refI|sResourc|
|00001ae0| 65 3a 20 52 65 73 49 44 | 29 3b 0d 20 20 20 20 20 |e: ResID|);.     |
|00001af0| 74 65 52 65 66 49 73 4e | 65 77 48 61 6e 64 6c 65 |teRefIsN|ewHandle|
|00001b00| 3a 20 28 72 65 66 49 73 | 4e 65 77 48 61 6e 64 6c |: (refIs|NewHandl|
|00001b10| 65 3a 20 5e 54 45 52 75 | 6c 65 72 48 6e 64 6c 29 |e: ^TERu|lerHndl)|
|00001b20| 3b 0d 45 4e 44 3b 0d 0d | 0d 7b 0d 20 20 20 20 54 |;.END;..|.{.    T|
|00001b30| 68 65 20 66 6f 6c 6c 6f | 77 69 6e 67 20 64 61 74 |he follo|wing dat|
|00001b40| 61 20 73 74 72 75 63 74 | 75 72 65 20 28 54 45 46 |a struct|ure (TEF|
|00001b50| 6f 72 6d 61 74 29 20 69 | 73 20 66 6f 72 20 72 65 |ormat) i|s for re|
|00001b60| 66 65 72 65 6e 63 65 20 | 6f 6e 6c 79 21 0d 20 20 |ference |only!.  |
|00001b70| 20 20 49 74 20 63 6f 6e | 74 61 69 6e 73 20 65 6d |  It con|tains em|
|00001b80| 62 65 64 64 65 64 20 76 | 61 72 69 61 62 6c 65 20 |bedded v|ariable |
|00001b90| 6c 65 6e 67 74 68 20 66 | 69 65 6c 64 73 2e 0d 7d |length f|ields..}|
|00001ba0| 0d 0d 54 45 46 6f 72 6d | 61 74 48 6e 64 6c 20 3d |..TEForm|atHndl =|
|00001bb0| 20 5e 54 45 46 6f 72 6d | 61 74 50 74 72 3b 0d 54 | ^TEForm|atPtr;.T|
|00001bc0| 45 46 6f 72 6d 61 74 50 | 74 72 20 3d 20 5e 54 45 |EFormatP|tr = ^TE|
|00001bd0| 46 6f 72 6d 61 74 3b 0d | 54 45 46 6f 72 6d 61 74 |Format;.|TEFormat|
|00001be0| 20 3d 20 52 45 43 4f 52 | 44 0d 20 20 20 20 76 65 | = RECOR|D.    ve|
|00001bf0| 72 73 69 6f 6e 20 3a 20 | 49 6e 74 65 67 65 72 3b |rsion : |Integer;|
|00001c00| 0d 20 20 20 20 72 75 6c | 65 72 4c 69 73 74 4c 65 |.    rul|erListLe|
|00001c10| 6e 67 74 68 20 3a 20 4c | 6f 6e 67 69 6e 74 3b 0d |ngth : L|ongint;.|
|00001c20| 20 20 20 20 74 68 65 52 | 75 6c 65 72 4c 69 73 74 |    theR|ulerList|
|00001c30| 20 3a 20 41 52 52 41 59 | 5b 31 2e 2e 31 5d 20 4f | : ARRAY|[1..1] O|
|00001c40| 46 20 54 45 52 75 6c 65 | 72 3b 0d 20 20 20 20 73 |F TERule|r;.    s|
|00001c50| 74 79 6c 65 4c 69 73 74 | 4c 65 6e 67 74 68 20 3a |tyleList|Length :|
|00001c60| 20 4c 6f 6e 67 69 6e 74 | 3b 0d 20 20 20 20 74 68 | Longint|;.    th|
|00001c70| 65 53 74 79 6c 65 4c 69 | 73 74 20 3a 20 41 52 52 |eStyleLi|st : ARR|
|00001c80| 41 59 5b 31 2e 2e 31 5d | 20 4f 46 20 54 45 53 74 |AY[1..1]| OF TESt|
|00001c90| 79 6c 65 3b 0d 20 20 20 | 20 6e 75 6d 62 65 72 4f |yle;.   | numberO|
|00001ca0| 66 53 74 79 6c 65 73 20 | 3a 20 4c 6f 6e 67 69 6e |fStyles |: Longin|
|00001cb0| 74 3b 0d 20 20 20 20 74 | 68 65 53 74 79 6c 65 73 |t;.    t|heStyles|
|00001cc0| 20 3a 20 41 52 52 41 59 | 5b 31 2e 2e 31 5d 20 4f | : ARRAY|[1..1] O|
|00001cd0| 46 20 53 74 79 6c 65 49 | 74 65 6d 3b 0d 45 4e 44 |F StyleI|tem;.END|
|00001ce0| 3b 0d 0d 54 45 54 65 78 | 74 52 65 66 20 3d 20 52 |;..TETex|tRef = R|
|00001cf0| 45 43 4f 52 44 20 43 41 | 53 45 20 49 4e 54 45 47 |ECORD CA|SE INTEG|
|00001d00| 45 52 20 4f 46 0d 20 20 | 20 20 20 24 30 30 30 30 |ER OF.  |   $0000|
|00001d10| 3a 28 74 65 78 74 49 73 | 50 53 74 72 69 6e 67 50 |:(textIs|PStringP|
|00001d20| 74 72 3a 53 74 72 69 6e | 67 50 74 72 29 3b 0d 20 |tr:Strin|gPtr);. |
|00001d30| 20 20 20 20 24 30 30 30 | 31 3a 28 74 65 78 74 49 |    $000|1:(textI|
|00001d40| 73 43 53 74 72 69 6e 67 | 50 74 72 3a 43 53 74 72 |sCString|Ptr:CStr|
|00001d50| 69 6e 67 50 74 72 29 3b | 0d 20 20 20 20 20 24 30 |ingPtr);|.     $0|
|00001d60| 30 30 32 3a 28 74 65 78 | 74 49 73 43 31 49 6e 70 |002:(tex|tIsC1Inp|
|00001d70| 75 74 50 74 72 3a 47 53 | 53 74 72 69 6e 67 32 35 |utPtr:GS|String25|
|00001d80| 35 50 74 72 29 3b 0d 20 | 20 20 20 20 24 30 30 30 |5Ptr);. |    $000|
|00001d90| 33 3a 28 74 65 78 74 49 | 73 43 31 4f 75 74 70 75 |3:(textI|sC1Outpu|
|00001da0| 74 50 74 72 3a 52 65 73 | 75 6c 74 42 75 66 32 35 |tPtr:Res|ultBuf25|
|00001db0| 35 50 74 72 29 3b 0d 20 | 20 20 20 20 24 30 30 30 |5Ptr);. |    $000|
|00001dc0| 34 3a 28 74 65 78 74 49 | 73 54 42 32 50 74 72 3a |4:(textI|sTB2Ptr:|
|00001dd0| 50 74 72 29 3b 0d 20 20 | 20 20 20 24 30 30 30 35 |Ptr);.  |   $0005|
|00001de0| 3a 28 74 65 78 74 49 73 | 52 61 77 50 74 72 3a 50 |:(textIs|RawPtr:P|
|00001df0| 74 72 29 3b 0d 0d 20 20 | 20 20 20 24 30 30 30 38 |tr);..  |   $0008|
|00001e00| 3a 28 74 65 78 74 49 73 | 50 53 74 72 69 6e 67 48 |:(textIs|PStringH|
|00001e10| 61 6e 64 6c 65 3a 53 74 | 72 69 6e 67 32 35 35 48 |andle:St|ring255H|
|00001e20| 6e 64 6c 29 3b 0d 20 20 | 20 20 20 24 30 30 30 39 |ndl);.  |   $0009|
|00001e30| 3a 28 74 65 78 74 49 73 | 43 53 74 72 69 6e 67 48 |:(textIs|CStringH|
|00001e40| 61 6e 64 6c 65 3a 43 53 | 74 72 69 6e 67 48 6e 64 |andle:CS|tringHnd|
|00001e50| 6c 29 3b 0d 20 20 20 20 | 20 24 30 30 30 41 3a 28 |l);.    | $000A:(|
|00001e60| 74 65 78 74 49 73 43 31 | 49 6e 70 75 74 48 61 6e |textIsC1|InputHan|
|00001e70| 64 6c 65 3a 47 53 53 74 | 72 69 6e 67 32 35 35 48 |dle:GSSt|ring255H|
|00001e80| 6e 64 6c 29 3b 0d 20 20 | 20 20 20 24 30 30 30 42 |ndl);.  |   $000B|
|00001e90| 3a 28 74 65 78 74 49 73 | 43 31 4f 75 74 70 75 74 |:(textIs|C1Output|
|00001ea0| 48 61 6e 64 6c 65 3a 52 | 65 73 75 6c 74 42 75 66 |Handle:R|esultBuf|
|00001eb0| 32 35 35 48 6e 64 6c 29 | 3b 0d 20 20 20 20 20 24 |255Hndl)|;.     $|
|00001ec0| 30 30 30 43 3a 28 74 65 | 78 74 49 73 54 42 32 48 |000C:(te|xtIsTB2H|
|00001ed0| 61 6e 64 6c 65 3a 48 61 | 6e 64 6c 65 29 3b 0d 20 |andle:Ha|ndle);. |
|00001ee0| 20 20 20 20 24 30 30 30 | 44 3a 28 74 65 78 74 49 |    $000|D:(textI|
|00001ef0| 73 52 61 77 48 61 6e 64 | 6c 65 3a 48 61 6e 64 6c |sRawHand|le:Handl|
|00001f00| 65 29 3b 0d 0d 20 20 20 | 20 20 24 30 30 31 30 3a |e);..   |  $0010:|
|00001f10| 28 74 65 78 74 49 73 50 | 53 74 72 69 6e 67 52 65 |(textIsP|StringRe|
|00001f20| 73 6f 75 72 63 65 3a 20 | 52 65 73 49 44 29 3b 0d |source: |ResID);.|
|00001f30| 20 20 20 20 20 24 30 30 | 31 31 3a 28 74 65 78 74 |     $00|11:(text|
|00001f40| 49 73 43 53 74 72 69 6e | 67 52 65 73 6f 75 72 63 |IsCStrin|gResourc|
|00001f50| 65 3a 20 52 65 73 49 44 | 29 3b 0d 20 20 20 20 20 |e: ResID|);.     |
|00001f60| 24 30 30 31 32 3a 28 74 | 65 78 74 49 73 43 31 49 |$0012:(t|extIsC1I|
|00001f70| 6e 70 75 74 52 65 73 6f | 75 72 63 65 3a 20 52 65 |nputReso|urce: Re|
|00001f80| 73 49 44 29 3b 0d 20 20 | 20 20 20 24 30 30 31 33 |sID);.  |   $0013|
|00001f90| 3a 28 74 65 78 74 49 73 | 43 31 4f 75 74 70 75 74 |:(textIs|C1Output|
|00001fa0| 52 65 73 6f 75 72 63 65 | 3a 20 52 65 73 49 44 29 |Resource|: ResID)|
|00001fb0| 3b 0d 20 20 20 20 20 24 | 30 30 31 34 3a 28 74 65 |;.     $|0014:(te|
|00001fc0| 78 74 49 73 54 42 32 52 | 65 73 6f 75 72 63 65 3a |xtIsTB2R|esource:|
|00001fd0| 20 52 65 73 49 44 29 3b | 0d 20 20 20 20 20 24 30 | ResID);|.     $0|
|00001fe0| 30 31 35 3a 28 74 65 78 | 74 49 73 52 61 77 52 65 |015:(tex|tIsRawRe|
|00001ff0| 73 6f 75 72 63 65 3a 20 | 52 65 73 49 44 29 3b 0d |source: |ResID);.|
|00002000| 0d 20 20 20 20 20 24 30 | 30 31 38 3a 28 74 65 78 |.     $0|018:(tex|
|00002010| 74 49 73 50 53 74 72 69 | 6e 67 4e 65 77 48 3a 53 |tIsPStri|ngNewH:S|
|00002020| 74 72 69 6e 67 32 35 35 | 48 6e 64 6c 50 74 72 29 |tring255|HndlPtr)|
|00002030| 3b 0d 20 20 20 20 20 24 | 30 30 31 39 3a 28 74 65 |;.     $|0019:(te|
|00002040| 78 74 49 73 43 53 74 72 | 69 6e 67 4e 65 77 48 3a |xtIsCStr|ingNewH:|
|00002050| 43 53 74 72 69 6e 67 48 | 6e 64 6c 50 74 72 29 3b |CStringH|ndlPtr);|
|00002060| 0d 20 20 20 20 20 24 30 | 30 31 41 3a 28 74 65 78 |.     $0|01A:(tex|
|00002070| 74 49 73 43 31 49 6e 70 | 75 74 4e 65 77 48 3a 47 |tIsC1Inp|utNewH:G|
|00002080| 53 53 74 72 69 6e 67 32 | 35 35 48 6e 64 6c 50 74 |SString2|55HndlPt|
|00002090| 72 29 3b 0d 20 20 20 20 | 20 24 30 30 31 42 3a 28 |r);.    | $001B:(|
|000020a0| 74 65 78 74 49 73 43 31 | 4f 75 74 70 75 74 4e 65 |textIsC1|OutputNe|
|000020b0| 77 48 3a 52 65 73 75 6c | 74 42 75 66 32 35 35 48 |wH:Resul|tBuf255H|
|000020c0| 6e 64 6c 50 74 72 29 3b | 0d 20 20 20 20 20 24 30 |ndlPtr);|.     $0|
|000020d0| 30 31 43 3a 28 74 65 78 | 74 49 73 54 42 32 4e 65 |01C:(tex|tIsTB2Ne|
|000020e0| 77 48 3a 48 61 6e 64 6c | 65 50 74 72 29 3b 0d 20 |wH:Handl|ePtr);. |
|000020f0| 20 20 20 20 24 30 30 31 | 44 3a 28 74 65 78 74 49 |    $001|D:(textI|
|00002100| 73 52 61 77 4e 65 77 48 | 3a 48 61 6e 64 6c 65 50 |sRawNewH|:HandleP|
|00002110| 74 72 29 3b 0d 45 4e 44 | 3b 0d 0d 54 45 53 74 79 |tr);.END|;..TESty|
|00002120| 6c 65 52 65 66 20 3d 20 | 52 45 43 4f 52 44 20 43 |leRef = |RECORD C|
|00002130| 41 53 45 20 49 4e 54 45 | 47 45 52 20 4f 46 0d 20 |ASE INTE|GER OF. |
|00002140| 20 20 20 20 24 30 30 30 | 30 3a 28 73 74 79 6c 65 |    $000|0:(style|
|00002150| 49 73 50 74 72 3a 54 45 | 46 6f 72 6d 61 74 50 74 |IsPtr:TE|FormatPt|
|00002160| 72 29 3b 0d 20 20 20 20 | 20 24 30 30 30 31 3a 28 |r);.    | $0001:(|
|00002170| 73 74 79 6c 65 49 73 48 | 61 6e 64 6c 65 3a 54 45 |styleIsH|andle:TE|
|00002180| 46 6f 72 6d 61 74 48 6e | 64 6c 29 3b 0d 20 20 20 |FormatHn|dl);.   |
|00002190| 20 20 24 30 30 30 32 3a | 28 73 74 79 6c 65 49 73 |  $0002:|(styleIs|
|000021a0| 52 65 73 6f 75 72 63 65 | 3a 52 65 73 49 44 29 3b |Resource|:ResID);|
|000021b0| 0d 20 20 20 20 20 24 30 | 30 30 33 3a 28 73 74 79 |.     $0|003:(sty|
|000021c0| 6c 65 49 73 4e 65 77 48 | 3a 5e 54 45 46 6f 72 6d |leIsNewH|:^TEForm|
|000021d0| 61 74 48 6e 64 6c 29 3b | 0d 45 4e 44 3b 0d 0d 54 |atHndl);|.END;..T|
|000021e0| 45 43 6f 6c 6f 72 52 65 | 66 20 3d 20 52 45 43 4f |EColorRe|f = RECO|
|000021f0| 52 44 20 43 41 53 45 20 | 49 4e 54 45 47 45 52 20 |RD CASE |INTEGER |
|00002200| 4f 46 0d 20 20 20 20 20 | 24 30 30 30 30 3a 28 63 |OF.     |$0000:(c|
|00002210| 6f 6c 6f 72 49 73 50 74 | 72 3a 20 54 45 43 6f 6c |olorIsPt|r: TECol|
|00002220| 6f 72 54 61 62 6c 65 50 | 74 72 29 3b 0d 20 20 20 |orTableP|tr);.   |
|00002230| 20 20 24 30 30 30 34 3a | 28 63 6f 6c 6f 72 49 73 |  $0004:|(colorIs|
|00002240| 48 61 6e 64 6c 65 3a 20 | 54 45 43 6f 6c 6f 72 54 |Handle: |TEColorT|
|00002250| 61 62 6c 65 48 6e 64 6c | 29 3b 0d 20 20 20 20 20 |ableHndl|);.     |
|00002260| 24 30 30 30 38 3a 28 63 | 6f 6c 6f 72 49 73 52 65 |$0008:(c|olorIsRe|
|00002270| 73 6f 75 72 63 65 3a 20 | 52 65 73 49 44 29 3b 0d |source: |ResID);.|
|00002280| 45 4e 44 3b 0d 0d 54 45 | 50 61 72 61 6d 42 6c 6f |END;..TE|ParamBlo|
|00002290| 63 6b 48 6e 64 6c 20 3d | 20 5e 54 45 50 61 72 61 |ckHndl =| ^TEPara|
|000022a0| 6d 42 6c 6f 63 6b 50 74 | 72 3b 0d 54 45 50 61 72 |mBlockPt|r;.TEPar|
|000022b0| 61 6d 42 6c 6f 63 6b 50 | 74 72 20 3d 20 5e 54 45 |amBlockP|tr = ^TE|
|000022c0| 50 61 72 61 6d 42 6c 6f | 63 6b 3b 0d 54 45 50 61 |ParamBlo|ck;.TEPa|
|000022d0| 72 61 6d 42 6c 6f 63 6b | 20 3d 20 52 45 43 4f 52 |ramBlock| = RECOR|
|000022e0| 44 0d 20 20 20 20 70 43 | 6f 75 6e 74 20 3a 20 49 |D.    pC|ount : I|
|000022f0| 6e 74 65 67 65 72 3b 0d | 20 20 20 20 63 6f 6e 74 |nteger;.|    cont|
|00002300| 72 6f 6c 49 44 20 3a 20 | 4c 6f 6e 67 69 6e 74 3b |rolID : |Longint;|
|00002310| 0d 20 20 20 20 62 6f 75 | 6e 64 73 52 65 63 74 20 |.    bou|ndsRect |
|00002320| 3a 20 52 65 63 74 3b 0d | 20 20 20 20 70 72 6f 63 |: Rect;.|    proc|
|00002330| 52 65 66 20 3a 20 4c 6f | 6e 67 69 6e 74 3b 0d 20 |Ref : Lo|ngint;. |
|00002340| 20 20 20 66 6c 61 67 73 | 20 3a 20 49 6e 74 65 67 |   flags| : Integ|
|00002350| 65 72 3b 0d 20 20 20 20 | 6d 6f 72 65 66 6c 61 67 |er;.    |moreflag|
|00002360| 73 20 3a 20 49 6e 74 65 | 67 65 72 3b 0d 20 20 20 |s : Inte|ger;.   |
|00002370| 20 72 65 66 43 6f 6e 20 | 3a 20 4c 6f 6e 67 69 6e | refCon |: Longin|
|00002380| 74 3b 0d 20 20 20 20 74 | 65 78 74 46 6c 61 67 73 |t;.    t|extFlags|
|00002390| 20 3a 20 4c 6f 6e 67 69 | 6e 74 3b 0d 20 20 20 20 | : Longi|nt;.    |
|000023a0| 69 6e 64 65 6e 74 52 65 | 63 74 20 3a 20 52 65 63 |indentRe|ct : Rec|
|000023b0| 74 3b 0d 20 20 20 20 76 | 65 72 74 42 61 72 20 3a |t;.    v|ertBar :|
|000023c0| 20 43 74 6c 52 65 63 48 | 6e 64 6c 3b 0d 20 20 20 | CtlRecH|ndl;.   |
|000023d0| 20 76 65 72 74 41 6d 6f | 75 6e 74 20 3a 20 49 6e | vertAmo|unt : In|
|000023e0| 74 65 67 65 72 3b 0d 20 | 20 20 20 68 6f 72 7a 42 |teger;. |   horzB|
|000023f0| 61 72 20 3a 20 43 74 6c | 52 65 63 48 6e 64 6c 3b |ar : Ctl|RecHndl;|
|00002400| 0d 20 20 20 20 68 6f 72 | 7a 41 6d 6f 75 6e 74 20 |.    hor|zAmount |
|00002410| 3a 20 49 6e 74 65 67 65 | 72 3b 0d 20 20 20 20 73 |: Intege|r;.    s|
|00002420| 74 79 6c 65 52 65 66 20 | 3a 20 54 45 53 74 79 6c |tyleRef |: TEStyl|
|00002430| 65 52 65 66 3b 0d 20 20 | 20 20 74 65 78 74 44 65 |eRef;.  |  textDe|
|00002440| 73 63 72 69 70 74 6f 72 | 20 3a 20 49 6e 74 65 67 |scriptor| : Integ|
|00002450| 65 72 3b 0d 20 20 20 20 | 74 65 78 74 52 65 66 20 |er;.    |textRef |
|00002460| 3a 20 54 45 54 65 78 74 | 52 65 66 3b 0d 20 20 20 |: TEText|Ref;.   |
|00002470| 20 74 65 78 74 4c 65 6e | 67 74 68 20 3a 20 4c 6f | textLen|gth : Lo|
|00002480| 6e 67 69 6e 74 3b 0d 20 | 20 20 20 6d 61 78 43 68 |ngint;. |   maxCh|
|00002490| 61 72 73 20 3a 20 4c 6f | 6e 67 69 6e 74 3b 0d 20 |ars : Lo|ngint;. |
|000024a0| 20 20 20 6d 61 78 4c 69 | 6e 65 73 20 3a 20 4c 6f |   maxLi|nes : Lo|
|000024b0| 6e 67 69 6e 74 3b 0d 20 | 20 20 20 6d 61 78 43 68 |ngint;. |   maxCh|
|000024c0| 61 72 73 50 65 72 4c 69 | 6e 65 20 3a 20 49 6e 74 |arsPerLi|ne : Int|
|000024d0| 65 67 65 72 3b 0d 20 20 | 20 20 6d 61 78 48 65 69 |eger;.  |  maxHei|
|000024e0| 67 68 74 20 3a 20 49 6e | 74 65 67 65 72 3b 0d 20 |ght : In|teger;. |
|000024f0| 20 20 20 63 6f 6c 6f 72 | 52 65 66 20 3a 20 54 45 |   color|Ref : TE|
|00002500| 43 6f 6c 6f 72 52 65 66 | 3b 0d 20 20 20 20 64 72 |ColorRef|;.    dr|
|00002510| 61 77 4d 6f 64 65 20 3a | 20 49 6e 74 65 67 65 72 |awMode :| Integer|
|00002520| 3b 0d 20 20 20 20 66 69 | 6c 74 65 72 50 72 6f 63 |;.    fi|lterProc|
|00002530| 50 74 72 20 3a 20 50 72 | 6f 63 50 74 72 3b 0d 45 |Ptr : Pr|ocPtr;.E|
|00002540| 4e 44 3b 0d 0d 54 45 49 | 6e 66 6f 52 65 63 20 3d |ND;..TEI|nfoRec =|
|00002550| 20 52 45 43 4f 52 44 0d | 20 20 20 20 63 68 61 72 | RECORD.|    char|
|00002560| 43 6f 75 6e 74 20 3a 20 | 4c 6f 6e 67 69 6e 74 3b |Count : |Longint;|
|00002570| 0d 20 20 20 20 6c 69 6e | 65 43 6f 75 6e 74 20 3a |.    lin|eCount :|
|00002580| 20 4c 6f 6e 67 69 6e 74 | 3b 0d 20 20 20 20 66 6f | Longint|;.    fo|
|00002590| 72 6d 61 74 4d 65 6d 6f | 72 79 20 3a 20 4c 6f 6e |rmatMemo|ry : Lon|
|000025a0| 67 69 6e 74 3b 0d 20 20 | 20 20 74 6f 74 61 6c 4d |gint;.  |  totalM|
|000025b0| 65 6d 6f 72 79 20 3a 20 | 4c 6f 6e 67 69 6e 74 3b |emory : |Longint;|
|000025c0| 0d 20 20 20 20 73 74 79 | 6c 65 43 6f 75 6e 74 20 |.    sty|leCount |
|000025d0| 3a 20 4c 6f 6e 67 69 6e | 74 3b 0d 20 20 20 20 72 |: Longin|t;.    r|
|000025e0| 75 6c 65 72 43 6f 75 6e | 74 20 3a 20 4c 6f 6e 67 |ulerCoun|t : Long|
|000025f0| 69 6e 74 3b 0d 45 4e 44 | 3b 0d 0d 54 45 48 6f 6f |int;.END|;..TEHoo|
|00002600| 6b 73 20 3d 20 52 45 43 | 4f 52 44 0d 20 20 20 20 |ks = REC|ORD.    |
|00002610| 63 68 61 72 46 69 6c 74 | 65 72 20 3a 20 50 72 6f |charFilt|er : Pro|
|00002620| 63 50 74 72 3b 0d 20 20 | 20 20 77 6f 72 64 57 72 |cPtr;.  |  wordWr|
|00002630| 61 70 20 3a 20 50 72 6f | 63 50 74 72 3b 0d 20 20 |ap : Pro|cPtr;.  |
|00002640| 20 20 77 6f 72 64 42 72 | 65 61 6b 20 3a 20 50 72 |  wordBr|eak : Pr|
|00002650| 6f 63 50 74 72 3b 0d 20 | 20 20 20 64 72 61 77 54 |ocPtr;. |   drawT|
|00002660| 65 78 74 20 3a 20 50 72 | 6f 63 50 74 72 3b 0d 20 |ext : Pr|ocPtr;. |
|00002670| 20 20 20 65 72 61 73 65 | 54 65 78 74 20 3a 20 50 |   erase|Text : P|
|00002680| 72 6f 63 50 74 72 3b 0d | 45 4e 44 3b 0d 0d 54 45 |rocPtr;.|END;..TE|
|00002690| 4b 65 79 52 65 63 6f 72 | 64 48 6e 64 6c 20 3d 20 |KeyRecor|dHndl = |
|000026a0| 5e 54 45 4b 65 79 52 65 | 63 6f 72 64 50 74 72 3b |^TEKeyRe|cordPtr;|
|000026b0| 0d 54 45 4b 65 79 52 65 | 63 6f 72 64 50 74 72 20 |.TEKeyRe|cordPtr |
|000026c0| 3d 20 5e 54 45 4b 65 79 | 52 65 63 6f 72 64 3b 0d |= ^TEKey|Record;.|
|000026d0| 54 45 4b 65 79 52 65 63 | 6f 72 64 20 3d 20 52 45 |TEKeyRec|ord = RE|
|000026e0| 43 4f 52 44 0d 20 20 20 | 20 74 68 65 43 68 61 72 |CORD.   | theChar|
|000026f0| 20 3a 20 49 6e 74 65 67 | 65 72 3b 0d 20 20 20 20 | : Integ|er;.    |
|00002700| 74 68 65 4d 6f 64 69 66 | 69 65 72 73 20 3a 20 49 |theModif|iers : I|
|00002710| 6e 74 65 67 65 72 3b 0d | 20 20 20 20 74 68 65 49 |nteger;.|    theI|
|00002720| 6e 70 75 74 48 61 6e 64 | 6c 65 20 3a 20 48 61 6e |nputHand|le : Han|
|00002730| 64 6c 65 3b 0d 20 20 20 | 20 63 75 72 73 6f 72 4f |dle;.   | cursorO|
|00002740| 66 66 73 65 74 20 3a 20 | 4c 6f 6e 67 69 6e 74 3b |ffset : |Longint;|
|00002750| 0d 20 20 20 20 74 68 65 | 4f 70 43 6f 64 65 20 3a |.    the|OpCode :|
|00002760| 20 49 6e 74 65 67 65 72 | 3b 0d 45 4e 44 3b 0d 0d | Integer|;.END;..|
|00002770| 54 45 52 65 63 6f 72 64 | 48 6e 64 6c 20 3d 20 5e |TERecord|Hndl = ^|
|00002780| 54 45 52 65 63 6f 72 64 | 50 74 72 3b 0d 54 45 52 |TERecord|Ptr;.TER|
|00002790| 65 63 6f 72 64 50 74 72 | 20 3d 20 5e 54 45 52 65 |ecordPtr| = ^TERe|
|000027a0| 63 6f 72 64 3b 0d 54 45 | 52 65 63 6f 72 64 20 3d |cord;.TE|Record =|
|000027b0| 20 50 41 43 4b 45 44 20 | 52 45 43 4f 52 44 0d 20 | PACKED |RECORD. |
|000027c0| 20 20 20 63 74 72 6c 4e | 65 78 74 20 3a 20 43 74 |   ctrlN|ext : Ct|
|000027d0| 6c 52 65 63 48 6e 64 6c | 3b 0d 20 20 20 20 69 6e |lRecHndl|;.    in|
|000027e0| 50 6f 72 74 20 3a 20 57 | 69 6e 64 6f 77 50 74 72 |Port : W|indowPtr|
|000027f0| 3b 0d 20 20 20 20 62 6f | 75 6e 64 73 52 65 63 74 |;.    bo|undsRect|
|00002800| 20 3a 20 52 65 63 74 3b | 0d 20 20 20 20 63 74 72 | : Rect;|.    ctr|
|00002810| 6c 46 6c 61 67 20 3a 20 | 42 79 74 65 3b 0d 20 20 |lFlag : |Byte;.  |
|00002820| 20 20 63 74 72 6c 48 69 | 6c 69 74 65 20 3a 20 42 |  ctrlHi|lite : B|
|00002830| 79 74 65 3b 0d 20 20 20 | 20 6c 61 73 74 45 72 72 |yte;.   | lastErr|
|00002840| 6f 72 43 6f 64 65 20 3a | 20 49 6e 74 65 67 65 72 |orCode :| Integer|
|00002850| 3b 0d 20 20 20 20 63 74 | 72 6c 50 72 6f 63 20 3a |;.    ct|rlProc :|
|00002860| 20 50 72 6f 63 50 74 72 | 3b 0d 20 20 20 20 63 74 | ProcPtr|;.    ct|
|00002870| 72 6c 41 63 74 69 6f 6e | 20 3a 20 50 72 6f 63 50 |rlAction| : ProcP|
|00002880| 74 72 3b 0d 20 20 20 20 | 66 69 6c 74 65 72 50 72 |tr;.    |filterPr|
|00002890| 6f 63 20 3a 20 50 72 6f | 63 50 74 72 3b 0d 20 20 |oc : Pro|cPtr;.  |
|000028a0| 20 20 63 74 72 6c 52 65 | 66 43 6f 6e 20 3a 20 4c |  ctrlRe|fCon : L|
|000028b0| 6f 6e 67 69 6e 74 3b 0d | 20 20 20 20 63 6f 6c 6f |ongint;.|    colo|
|000028c0| 72 52 65 66 20 3a 20 54 | 45 43 6f 6c 6f 72 54 61 |rRef : T|EColorTa|
|000028d0| 62 6c 65 50 74 72 3b 0d | 20 20 20 20 74 65 78 74 |blePtr;.|    text|
|000028e0| 46 6c 61 67 73 20 3a 20 | 4c 6f 6e 67 69 6e 74 3b |Flags : |Longint;|
|000028f0| 0d 20 20 20 20 74 65 78 | 74 4c 65 6e 67 74 68 20 |.    tex|tLength |
|00002900| 3a 20 4c 6f 6e 67 69 6e | 74 3b 0d 20 20 20 20 62 |: Longin|t;.    b|
|00002910| 6c 6f 63 6b 4c 69 73 74 | 20 3a 20 54 45 54 65 78 |lockList| : TETex|
|00002920| 74 4c 69 73 74 3b 0d 20 | 20 20 20 63 74 72 6c 49 |tList;. |   ctrlI|
|00002930| 44 20 3a 20 4c 6f 6e 67 | 69 6e 74 3b 0d 20 20 20 |D : Long|int;.   |
|00002940| 20 63 74 72 6c 4d 6f 72 | 65 46 6c 61 67 73 20 3a | ctrlMor|eFlags :|
|00002950| 20 49 6e 74 65 67 65 72 | 3b 0d 20 20 20 20 63 74 | Integer|;.    ct|
|00002960| 72 6c 56 65 72 73 69 6f | 6e 20 3a 20 49 6e 74 65 |rlVersio|n : Inte|
|00002970| 67 65 72 3b 0d 20 20 20 | 20 76 69 65 77 52 65 63 |ger;.   | viewRec|
|00002980| 74 20 3a 20 52 65 63 74 | 3b 0d 20 20 20 20 74 6f |t : Rect|;.    to|
|00002990| 74 61 6c 48 65 69 67 68 | 74 20 3a 20 4c 6f 6e 67 |talHeigh|t : Long|
|000029a0| 69 6e 74 3b 0d 20 20 20 | 20 6c 69 6e 65 53 75 70 |int;.   | lineSup|
|000029b0| 65 72 20 3a 20 54 45 53 | 75 70 65 72 48 61 6e 64 |er : TES|uperHand|
|000029c0| 6c 65 3b 0d 20 20 20 20 | 73 74 79 6c 65 53 75 70 |le;.    |styleSup|
|000029d0| 65 72 20 3a 20 54 45 53 | 75 70 65 72 48 61 6e 64 |er : TES|uperHand|
|000029e0| 6c 65 3b 0d 20 20 20 20 | 73 74 79 6c 65 4c 69 73 |le;.    |styleLis|
|000029f0| 74 20 3a 20 48 61 6e 64 | 6c 65 3b 0d 20 20 20 20 |t : Hand|le;.    |
|00002a00| 72 75 6c 65 72 4c 69 73 | 74 20 3a 20 48 61 6e 64 |rulerLis|t : Hand|
|00002a10| 6c 65 3b 0d 20 20 20 20 | 6c 69 6e 65 41 74 45 6e |le;.    |lineAtEn|
|00002a20| 64 46 6c 61 67 20 3a 20 | 42 6f 6f 6c 65 61 6e 3b |dFlag : |Boolean;|
|00002a30| 0d 20 20 20 20 73 65 6c | 65 63 74 69 6f 6e 53 74 |.    sel|ectionSt|
|00002a40| 61 72 74 20 3a 20 4c 6f | 6e 67 69 6e 74 3b 0d 20 |art : Lo|ngint;. |
|00002a50| 20 20 20 73 65 6c 65 63 | 74 69 6f 6e 45 6e 64 20 |   selec|tionEnd |
|00002a60| 3a 20 4c 6f 6e 67 69 6e | 74 3b 0d 20 20 20 20 73 |: Longin|t;.    s|
|00002a70| 65 6c 65 63 74 69 6f 6e | 41 63 74 69 76 65 20 3a |election|Active :|
|00002a80| 20 49 6e 74 65 67 65 72 | 3b 0d 20 20 20 20 73 65 | Integer|;.    se|
|00002a90| 6c 65 63 74 69 6f 6e 53 | 74 61 74 65 20 3a 20 49 |lectionS|tate : I|
|00002aa0| 6e 74 65 67 65 72 3b 0d | 20 20 20 20 63 61 72 65 |nteger;.|    care|
|00002ab0| 74 54 69 6d 65 20 3a 20 | 4c 6f 6e 67 69 6e 74 3b |tTime : |Longint;|
|00002ac0| 0d 20 20 20 20 6e 75 6c | 6c 53 74 79 6c 65 41 63 |.    nul|lStyleAc|
|00002ad0| 74 69 76 65 20 3a 20 42 | 6f 6f 6c 65 61 6e 3b 0d |tive : B|oolean;.|
|00002ae0| 20 20 20 20 6e 75 6c 6c | 53 74 79 6c 65 20 3a 20 |    null|Style : |
|00002af0| 54 45 53 74 79 6c 65 3b | 0d 20 20 20 20 74 6f 70 |TEStyle;|.    top|
|00002b00| 54 65 78 74 4f 66 66 73 | 65 74 20 3a 20 4c 6f 6e |TextOffs|et : Lon|
|00002b10| 67 69 6e 74 3b 0d 20 20 | 20 20 74 6f 70 54 65 78 |gint;.  |  topTex|
|00002b20| 74 56 50 6f 73 20 3a 20 | 49 6e 74 65 67 65 72 3b |tVPos : |Integer;|
|00002b30| 0d 20 20 20 20 76 65 72 | 74 53 63 72 6f 6c 6c 42 |.    ver|tScrollB|
|00002b40| 61 72 20 3a 20 43 74 6c | 52 65 63 48 6e 64 6c 3b |ar : Ctl|RecHndl;|
|00002b50| 0d 20 20 20 20 76 65 72 | 74 53 63 72 6f 6c 6c 50 |.    ver|tScrollP|
|00002b60| 6f 73 20 3a 20 4c 6f 6e | 67 69 6e 74 3b 0d 20 20 |os : Lon|gint;.  |
|00002b70| 20 20 76 65 72 74 53 63 | 72 6f 6c 6c 4d 61 78 20 |  vertSc|rollMax |
|00002b80| 3a 20 4c 6f 6e 67 69 6e | 74 3b 0d 20 20 20 20 76 |: Longin|t;.    v|
|00002b90| 65 72 74 53 63 72 6f 6c | 6c 41 6d 6f 75 6e 74 20 |ertScrol|lAmount |
|00002ba0| 3a 20 49 6e 74 65 67 65 | 72 3b 0d 20 20 20 20 68 |: Intege|r;.    h|
|00002bb0| 6f 72 7a 53 63 72 6f 6c | 6c 42 61 72 20 3a 20 43 |orzScrol|lBar : C|
|00002bc0| 74 6c 52 65 63 48 6e 64 | 6c 3b 0d 20 20 20 20 68 |tlRecHnd|l;.    h|
|00002bd0| 6f 72 7a 53 63 72 6f 6c | 6c 50 6f 73 20 3a 20 4c |orzScrol|lPos : L|
|00002be0| 6f 6e 67 69 6e 74 3b 0d | 20 20 20 20 68 6f 72 7a |ongint;.|    horz|
|00002bf0| 53 63 72 6f 6c 6c 4d 61 | 78 20 3a 20 4c 6f 6e 67 |ScrollMa|x : Long|
|00002c00| 69 6e 74 3b 0d 20 20 20 | 20 68 6f 72 7a 53 63 72 |int;.   | horzScr|
|00002c10| 6f 6c 6c 41 6d 6f 75 6e | 74 20 3a 20 49 6e 74 65 |ollAmoun|t : Inte|
|00002c20| 67 65 72 3b 0d 20 20 20 | 20 67 72 6f 77 42 6f 78 |ger;.   | growBox|
|00002c30| 48 61 6e 64 6c 65 20 3a | 20 43 74 6c 52 65 63 48 |Handle :| CtlRecH|
|00002c40| 6e 64 6c 3b 0d 20 20 20 | 20 6d 61 78 69 6d 75 6d |ndl;.   | maximum|
|00002c50| 43 68 61 72 73 20 3a 20 | 4c 6f 6e 67 69 6e 74 3b |Chars : |Longint;|
|00002c60| 0d 20 20 20 20 6d 61 78 | 69 6d 75 6d 4c 69 6e 65 |.    max|imumLine|
|00002c70| 73 20 3a 20 4c 6f 6e 67 | 69 6e 74 3b 0d 20 20 20 |s : Long|int;.   |
|00002c80| 20 6d 61 78 43 68 61 72 | 73 50 65 72 4c 69 6e 65 | maxChar|sPerLine|
|00002c90| 20 3a 20 49 6e 74 65 67 | 65 72 3b 0d 20 20 20 20 | : Integ|er;.    |
|00002ca0| 6d 61 78 69 6d 75 6d 48 | 65 69 67 68 74 20 3a 20 |maximumH|eight : |
|00002cb0| 49 6e 74 65 67 65 72 3b | 0d 20 20 20 20 74 65 78 |Integer;|.    tex|
|00002cc0| 74 44 72 61 77 4d 6f 64 | 65 20 3a 20 49 6e 74 65 |tDrawMod|e : Inte|
|00002cd0| 67 65 72 3b 0d 20 20 20 | 20 77 6f 72 64 42 72 65 |ger;.   | wordBre|
|00002ce0| 61 6b 48 6f 6f 6b 20 3a | 20 50 72 6f 63 50 74 72 |akHook :| ProcPtr|
|00002cf0| 3b 0d 20 20 20 20 77 6f | 72 64 57 72 61 70 48 6f |;.    wo|rdWrapHo|
|00002d00| 6f 6b 20 3a 20 50 72 6f | 63 50 74 72 3b 0d 20 20 |ok : Pro|cPtr;.  |
|00002d10| 20 20 6b 65 79 46 69 6c | 74 65 72 20 3a 20 50 72 |  keyFil|ter : Pr|
|00002d20| 6f 63 50 74 72 3b 0d 20 | 20 20 20 74 68 65 46 69 |ocPtr;. |   theFi|
|00002d30| 6c 74 65 72 52 65 63 74 | 20 3a 20 52 65 63 74 3b |lterRect| : Rect;|
|00002d40| 0d 20 20 20 20 74 68 65 | 42 75 66 66 65 72 56 50 |.    the|BufferVP|
|00002d50| 6f 73 20 3a 20 49 6e 74 | 65 67 65 72 3b 0d 20 20 |os : Int|eger;.  |
|00002d60| 20 20 74 68 65 42 75 66 | 66 65 72 48 50 6f 73 20 |  theBuf|ferHPos |
|00002d70| 3a 20 49 6e 74 65 67 65 | 72 3b 0d 20 20 20 20 74 |: Intege|r;.    t|
|00002d80| 68 65 4b 65 79 52 65 63 | 6f 72 64 20 3a 20 54 45 |heKeyRec|ord : TE|
|00002d90| 4b 65 79 52 65 63 6f 72 | 64 3b 0d 20 20 20 20 63 |KeyRecor|d;.    c|
|00002da0| 61 63 68 65 64 53 65 6c | 63 4f 66 66 73 65 74 20 |achedSel|cOffset |
|00002db0| 3a 20 4c 6f 6e 67 69 6e | 74 3b 0d 20 20 20 20 63 |: Longin|t;.    c|
|00002dc0| 61 63 68 65 64 53 65 6c | 63 56 50 6f 73 20 3a 20 |achedSel|cVPos : |
|00002dd0| 49 6e 74 65 67 65 72 3b | 0d 20 20 20 20 63 61 63 |Integer;|.    cac|
|00002de0| 68 65 64 53 65 6c 63 48 | 50 6f 73 20 3a 20 49 6e |hedSelcH|Pos : In|
|00002df0| 74 65 67 65 72 3b 0d 20 | 20 20 20 6d 6f 75 73 65 |teger;. |   mouse|
|00002e00| 52 65 63 74 20 3a 20 52 | 65 63 74 3b 0d 20 20 20 |Rect : R|ect;.   |
|00002e10| 20 6d 6f 75 73 65 54 69 | 6d 65 20 3a 20 4c 6f 6e | mouseTi|me : Lon|
|00002e20| 67 69 6e 74 3b 0d 20 20 | 20 20 6d 6f 75 73 65 4b |gint;.  |  mouseK|
|00002e30| 69 6e 64 20 3a 20 49 6e | 74 65 67 65 72 3b 0d 20 |ind : In|teger;. |
|00002e40| 20 20 20 6c 61 73 74 43 | 6c 69 63 6b 20 3a 20 50 |   lastC|lick : P|
|00002e50| 6f 69 6e 74 3b 0d 20 20 | 20 20 73 61 76 65 64 48 |oint;.  |  savedH|
|00002e60| 50 6f 73 20 3a 20 49 6e | 74 65 67 65 72 3b 0d 20 |Pos : In|teger;. |
|00002e70| 20 20 20 61 6e 63 68 6f | 72 50 6f 69 6e 74 20 3a |   ancho|rPoint :|
|00002e80| 20 4c 6f 6e 67 69 6e 74 | 3b 0d 45 4e 44 3b 0d 0d | Longint|;.END;..|
|00002e90| 50 52 4f 43 45 44 55 52 | 45 20 54 45 41 63 74 69 |PROCEDUR|E TEActi|
|00002ea0| 76 61 74 65 20 28 20 74 | 65 48 3a 54 45 52 65 63 |vate ( t|eH:TERec|
|00002eb0| 6f 72 64 48 6e 64 6c 29 | 20 20 3b 0d 50 52 4f 43 |ordHndl)|  ;.PROC|
|00002ec0| 45 44 55 52 45 20 54 45 | 42 6f 6f 74 49 6e 69 74 |EDURE TE|BootInit|
|00002ed0| 20 20 20 3b 0d 50 52 4f | 43 45 44 55 52 45 20 54 |   ;.PRO|CEDURE T|
|00002ee0| 45 43 6c 65 61 72 20 28 | 20 74 65 48 3a 54 45 52 |EClear (| teH:TER|
|00002ef0| 65 63 6f 72 64 48 6e 64 | 6c 29 20 20 3b 0d 50 52 |ecordHnd|l)  ;.PR|
|00002f00| 4f 43 45 44 55 52 45 20 | 54 45 43 6c 69 63 6b 20 |OCEDURE |TEClick |
|00002f10| 28 56 41 52 20 74 68 65 | 45 76 65 6e 74 50 74 72 |(VAR the|EventPtr|
|00002f20| 3a 45 76 65 6e 74 52 65 | 63 6f 72 64 3b 20 74 65 |:EventRe|cord; te|
|00002f30| 48 3a 54 45 52 65 63 6f | 72 64 48 6e 64 6c 29 20 |H:TEReco|rdHndl) |
|00002f40| 20 3b 0d 50 52 4f 43 45 | 44 55 52 45 20 54 45 43 | ;.PROCE|DURE TEC|
|00002f50| 6f 6d 70 61 63 74 52 65 | 63 6f 72 64 20 28 20 74 |ompactRe|cord ( t|
|00002f60| 65 48 3a 54 45 52 65 63 | 6f 72 64 48 6e 64 6c 29 |eH:TERec|ordHndl)|
|00002f70| 20 20 3b 0d 50 52 4f 43 | 45 44 55 52 45 20 54 45 |  ;.PROC|EDURE TE|
|00002f80| 43 6f 70 79 20 28 20 74 | 65 48 3a 54 45 52 65 63 |Copy ( t|eH:TERec|
|00002f90| 6f 72 64 48 6e 64 6c 29 | 20 20 3b 0d 50 52 4f 43 |ordHndl)|  ;.PROC|
|00002fa0| 45 44 55 52 45 20 54 45 | 43 75 74 20 28 20 74 65 |EDURE TE|Cut ( te|
|00002fb0| 48 3a 54 45 52 65 63 6f | 72 64 48 6e 64 6c 29 20 |H:TEReco|rdHndl) |
|00002fc0| 20 3b 0d 50 52 4f 43 45 | 44 55 52 45 20 54 45 44 | ;.PROCE|DURE TED|
|00002fd0| 65 61 63 74 69 76 61 74 | 65 20 28 20 74 65 48 3a |eactivat|e ( teH:|
|00002fe0| 54 45 52 65 63 6f 72 64 | 48 6e 64 6c 29 20 20 3b |TERecord|Hndl)  ;|
|00002ff0| 0d 46 55 4e 43 54 49 4f | 4e 20 54 45 47 65 74 44 |.FUNCTIO|N TEGetD|
|00003000| 65 66 50 72 6f 63 20 20 | 3a 20 50 72 6f 63 50 74 |efProc  |: ProcPt|
|00003010| 72 20 3b 0d 46 55 4e 43 | 54 49 4f 4e 20 54 45 47 |r ;.FUNC|TION TEG|
|00003020| 65 74 49 6e 74 65 72 6e | 61 6c 50 72 6f 63 20 20 |etIntern|alProc  |
|00003030| 3a 20 50 72 6f 63 50 74 | 72 20 3b 0d 46 55 4e 43 |: ProcPt|r ;.FUNC|
|00003040| 54 49 4f 4e 20 20 54 45 | 47 65 74 4c 61 73 74 45 |TION  TE|GetLastE|
|00003050| 72 72 6f 72 20 28 20 63 | 6c 65 61 72 46 6c 61 67 |rror ( c|learFlag|
|00003060| 3a 49 6e 74 65 67 65 72 | 3b 20 74 65 48 3a 54 45 |:Integer|; teH:TE|
|00003070| 52 65 63 6f 72 64 48 6e | 64 6c 29 20 3a 20 49 6e |RecordHn|dl) : In|
|00003080| 74 65 67 65 72 20 3b 0d | 50 52 4f 43 45 44 55 52 |teger ;.|PROCEDUR|
|00003090| 45 20 54 45 47 65 74 52 | 75 6c 65 72 20 28 20 72 |E TEGetR|uler ( r|
|000030a0| 75 6c 65 72 44 65 73 63 | 72 69 70 74 6f 72 3a 49 |ulerDesc|riptor:I|
|000030b0| 6e 74 65 67 65 72 3b 20 | 72 75 6c 65 72 52 65 66 |nteger; |rulerRef|
|000030c0| 3a 54 45 52 75 6c 65 72 | 52 65 66 3b 20 74 65 48 |:TERuler|Ref; teH|
|000030d0| 3a 54 45 52 65 63 6f 72 | 64 48 6e 64 6c 29 20 20 |:TERecor|dHndl)  |
|000030e0| 3b 0d 50 52 4f 43 45 44 | 55 52 45 20 54 45 47 65 |;.PROCED|URE TEGe|
|000030f0| 74 53 65 6c 65 63 74 69 | 6f 6e 20 28 56 41 52 20 |tSelecti|on (VAR |
|00003100| 73 65 6c 53 74 61 72 74 | 3a 4c 6f 6e 67 69 6e 74 |selStart|:Longint|
|00003110| 3b 56 41 52 20 73 65 6c | 45 6e 64 3a 4c 6f 6e 67 |;VAR sel|End:Long|
|00003120| 69 6e 74 3b 20 74 65 48 | 3a 54 45 52 65 63 6f 72 |int; teH|:TERecor|
|00003130| 64 48 6e 64 6c 29 20 20 | 3b 0d 46 55 4e 43 54 49 |dHndl)  |;.FUNCTI|
|00003140| 4f 4e 20 20 54 45 47 65 | 74 53 65 6c 65 63 74 69 |ON  TEGe|tSelecti|
|00003150| 6f 6e 53 74 79 6c 65 20 | 28 56 41 52 20 63 6f 6d |onStyle |(VAR com|
|00003160| 6d 6f 6e 53 74 79 6c 65 | 3a 54 45 53 74 79 6c 65 |monStyle|:TEStyle|
|00003170| 3b 20 73 74 79 6c 65 48 | 61 6e 64 6c 65 3a 54 45 |; styleH|andle:TE|
|00003180| 53 74 79 6c 65 47 72 6f | 75 70 48 6e 64 6c 3b 20 |StyleGro|upHndl; |
|00003190| 74 65 48 3a 54 45 52 65 | 63 6f 72 64 48 6e 64 6c |teH:TERe|cordHndl|
|000031a0| 29 20 3a 20 49 6e 74 65 | 67 65 72 20 3b 0d 46 55 |) : Inte|ger ;.FU|
|000031b0| 4e 43 54 49 4f 4e 20 20 | 54 45 47 65 74 54 65 78 |NCTION  |TEGetTex|
|000031c0| 74 20 28 20 62 75 66 66 | 65 72 44 65 73 63 3a 49 |t ( buff|erDesc:I|
|000031d0| 6e 74 65 67 65 72 3b 20 | 62 75 66 66 65 72 52 65 |nteger; |bufferRe|
|000031e0| 66 3a 54 45 54 65 78 74 | 52 65 66 3b 20 62 75 66 |f:TEText|Ref; buf|
|000031f0| 66 65 72 4c 65 6e 67 74 | 68 3a 4c 6f 6e 67 69 6e |ferLengt|h:Longin|
|00003200| 74 3b 20 73 74 79 6c 65 | 44 65 73 63 3a 49 6e 74 |t; style|Desc:Int|
|00003210| 65 67 65 72 3b 20 73 74 | 79 6c 65 52 65 66 3a 54 |eger; st|yleRef:T|
|00003220| 45 53 74 79 6c 65 52 65 | 66 3b 20 74 65 48 3a 54 |EStyleRe|f; teH:T|
|00003230| 45 52 65 63 6f 72 64 48 | 6e 64 6c 29 20 3a 20 4c |ERecordH|ndl) : L|
|00003240| 6f 6e 67 69 6e 74 20 3b | 0d 50 52 4f 43 45 44 55 |ongint ;|.PROCEDU|
|00003250| 52 45 20 54 45 47 65 74 | 54 65 78 74 49 6e 66 6f |RE TEGet|TextInfo|
|00003260| 20 28 56 41 52 20 69 6e | 66 6f 52 65 63 3a 54 45 | (VAR in|foRec:TE|
|00003270| 49 6e 66 6f 52 65 63 3b | 20 70 43 6f 75 6e 74 3a |InfoRec;| pCount:|
|00003280| 49 6e 74 65 67 65 72 3b | 20 74 65 48 3a 54 45 52 |Integer;| teH:TER|
|00003290| 65 63 6f 72 64 48 6e 64 | 6c 29 20 20 3b 0d 50 52 |ecordHnd|l)  ;.PR|
|000032a0| 4f 43 45 44 55 52 45 20 | 54 45 49 64 6c 65 20 28 |OCEDURE |TEIdle (|
|000032b0| 20 74 65 48 3a 54 45 52 | 65 63 6f 72 64 48 6e 64 | teH:TER|ecordHnd|
|000032c0| 6c 29 20 20 3b 0d 50 52 | 4f 43 45 44 55 52 45 20 |l)  ;.PR|OCEDURE |
|000032d0| 54 45 49 6e 73 65 72 74 | 20 28 20 74 65 78 74 44 |TEInsert| ( textD|
|000032e0| 65 73 63 3a 49 6e 74 65 | 67 65 72 3b 20 74 65 78 |esc:Inte|ger; tex|
|000032f0| 74 52 65 66 3a 54 45 54 | 65 78 74 52 65 66 3b 20 |tRef:TET|extRef; |
|00003300| 74 65 78 74 4c 65 6e 67 | 74 68 3a 4c 6f 6e 67 69 |textLeng|th:Longi|
|00003310| 6e 74 3b 20 73 74 79 6c | 65 44 65 73 63 3a 49 6e |nt; styl|eDesc:In|
|00003320| 74 65 67 65 72 3b 20 73 | 74 79 6c 65 52 65 66 3a |teger; s|tyleRef:|
|00003330| 54 45 53 74 79 6c 65 52 | 65 66 3b 20 74 65 48 3a |TEStyleR|ef; teH:|
|00003340| 54 45 52 65 63 6f 72 64 | 48 6e 64 6c 29 20 20 3b |TERecord|Hndl)  ;|
|00003350| 0d 50 52 4f 43 45 44 55 | 52 45 20 54 45 49 6e 73 |.PROCEDU|RE TEIns|
|00003360| 65 72 74 50 61 67 65 42 | 72 65 61 6b 20 28 20 74 |ertPageB|reak ( t|
|00003370| 65 48 3a 54 45 52 65 63 | 6f 72 64 48 6e 64 6c 29 |eH:TERec|ordHndl)|
|00003380| 20 20 3b 0d 50 52 4f 43 | 45 44 55 52 45 20 54 45 |  ;.PROC|EDURE TE|
|00003390| 4b 65 79 20 28 20 74 68 | 65 45 76 65 6e 74 50 74 |Key ( th|eEventPt|
|000033a0| 72 3a 45 76 65 6e 74 52 | 65 63 6f 72 64 3b 20 74 |r:EventR|ecord; t|
|000033b0| 65 48 3a 54 45 52 65 63 | 6f 72 64 48 6e 64 6c 29 |eH:TERec|ordHndl)|
|000033c0| 20 20 3b 0d 50 52 4f 43 | 45 44 55 52 45 20 54 45 |  ;.PROC|EDURE TE|
|000033d0| 4b 69 6c 6c 20 28 20 74 | 65 48 3a 54 45 52 65 63 |Kill ( t|eH:TERec|
|000033e0| 6f 72 64 48 6e 64 6c 29 | 20 20 3b 0d 46 55 4e 43 |ordHndl)|  ;.FUNC|
|000033f0| 54 49 4f 4e 20 20 54 45 | 4e 65 77 20 28 20 74 68 |TION  TE|New ( th|
|00003400| 65 50 61 72 6d 73 3a 54 | 45 50 61 72 61 6d 42 6c |eParms:T|EParamBl|
|00003410| 6f 63 6b 29 20 3a 20 54 | 45 52 65 63 6f 72 64 48 |ock) : T|ERecordH|
|00003420| 6e 64 6c 20 3b 0d 50 52 | 4f 43 45 44 55 52 45 20 |ndl ;.PR|OCEDURE |
|00003430| 54 45 4f 66 66 73 65 74 | 54 6f 50 6f 69 6e 74 20 |TEOffset|ToPoint |
|00003440| 28 20 74 65 78 74 4f 66 | 66 73 65 74 3a 4c 6f 6e |( textOf|fset:Lon|
|00003450| 67 69 6e 74 3b 56 41 52 | 20 76 65 72 74 50 6f 73 |gint;VAR| vertPos|
|00003460| 3a 4c 6f 6e 67 69 6e 74 | 3b 56 41 52 20 68 6f 72 |:Longint|;VAR hor|
|00003470| 7a 50 6f 73 3a 4c 6f 6e | 67 69 6e 74 3b 20 74 65 |zPos:Lon|gint; te|
|00003480| 48 3a 54 45 52 65 63 6f | 72 64 48 6e 64 6c 29 20 |H:TEReco|rdHndl) |
|00003490| 20 3b 0d 46 55 4e 43 54 | 49 4f 4e 20 20 54 45 50 | ;.FUNCT|ION  TEP|
|000034a0| 61 69 6e 74 54 65 78 74 | 20 28 20 74 68 65 50 6f |aintText| ( thePo|
|000034b0| 72 74 3a 47 72 61 66 50 | 6f 72 74 50 74 72 3b 20 |rt:GrafP|ortPtr; |
|000034c0| 73 74 61 72 74 3a 4c 6f | 6e 67 69 6e 74 3b 20 64 |start:Lo|ngint; d|
|000034d0| 65 73 74 52 65 63 74 3a | 72 65 63 74 3b 20 70 61 |estRect:|rect; pa|
|000034e0| 69 6e 74 46 6c 61 67 73 | 3a 49 6e 74 65 67 65 72 |intFlags|:Integer|
|000034f0| 3b 20 74 65 48 3a 54 45 | 52 65 63 6f 72 64 48 6e |; teH:TE|RecordHn|
|00003500| 64 6c 29 20 3a 20 4c 6f | 6e 67 69 6e 74 20 3b 0d |dl) : Lo|ngint ;.|
|00003510| 50 52 4f 43 45 44 55 52 | 45 20 54 45 50 61 73 74 |PROCEDUR|E TEPast|
|00003520| 65 20 28 20 74 65 48 3a | 54 45 52 65 63 6f 72 64 |e ( teH:|TERecord|
|00003530| 48 6e 64 6c 29 20 20 3b | 0d 46 55 4e 43 54 49 4f |Hndl)  ;|.FUNCTIO|
|00003540| 4e 20 20 54 45 50 6f 69 | 6e 74 54 6f 4f 66 66 73 |N  TEPoi|ntToOffs|
|00003550| 65 74 20 28 20 76 65 72 | 74 50 6f 73 3a 4c 6f 6e |et ( ver|tPos:Lon|
|00003560| 67 69 6e 74 3b 20 68 6f | 72 7a 50 6f 73 3a 4c 6f |gint; ho|rzPos:Lo|
|00003570| 6e 67 69 6e 74 3b 20 74 | 65 48 3a 54 45 52 65 63 |ngint; t|eH:TERec|
|00003580| 6f 72 64 48 6e 64 6c 29 | 20 3a 20 4c 6f 6e 67 69 |ordHndl)| : Longi|
|00003590| 6e 74 20 3b 0d 50 52 4f | 43 45 44 55 52 45 20 54 |nt ;.PRO|CEDURE T|
|000035a0| 45 52 65 70 6c 61 63 65 | 20 28 20 74 65 78 74 44 |EReplace| ( textD|
|000035b0| 65 73 63 3a 49 6e 74 65 | 67 65 72 3b 20 74 65 78 |esc:Inte|ger; tex|
|000035c0| 74 52 65 66 3a 54 45 54 | 65 78 74 52 65 66 3b 20 |tRef:TET|extRef; |
|000035d0| 74 65 78 74 4c 65 6e 67 | 74 68 3a 4c 6f 6e 67 69 |textLeng|th:Longi|
|000035e0| 6e 74 3b 20 73 74 79 6c | 65 44 65 73 63 3a 49 6e |nt; styl|eDesc:In|
|000035f0| 74 65 67 65 72 3b 20 73 | 74 79 6c 65 52 65 66 3a |teger; s|tyleRef:|
|00003600| 54 45 53 74 79 6c 65 52 | 65 66 3b 20 74 65 48 3a |TEStyleR|ef; teH:|
|00003610| 54 45 52 65 63 6f 72 64 | 48 6e 64 6c 29 20 20 3b |TERecord|Hndl)  ;|
|00003620| 0d 50 52 4f 43 45 44 55 | 52 45 20 54 45 52 65 73 |.PROCEDU|RE TERes|
|00003630| 65 74 20 20 20 3b 0d 50 | 52 4f 43 45 44 55 52 45 |et   ;.P|ROCEDURE|
|00003640| 20 54 45 53 63 72 6f 6c | 6c 20 28 20 73 63 72 6f | TEScrol|l ( scro|
|00003650| 6c 6c 44 65 73 63 72 69 | 70 74 6f 72 3a 49 6e 74 |llDescri|ptor:Int|
|00003660| 65 67 65 72 3b 20 76 65 | 72 74 41 6d 6f 75 6e 74 |eger; ve|rtAmount|
|00003670| 3a 4c 6f 6e 67 69 6e 74 | 3b 20 68 6f 72 7a 41 6d |:Longint|; horzAm|
|00003680| 6f 75 6e 74 3a 4c 6f 6e | 67 69 6e 74 3b 20 74 65 |ount:Lon|gint; te|
|00003690| 48 3a 54 45 52 65 63 6f | 72 64 48 6e 64 6c 29 20 |H:TEReco|rdHndl) |
|000036a0| 20 3b 0d 50 52 4f 43 45 | 44 55 52 45 20 54 45 53 | ;.PROCE|DURE TES|
|000036b0| 65 74 52 75 6c 65 72 20 | 28 20 72 75 6c 65 72 44 |etRuler |( rulerD|
|000036c0| 65 73 63 72 69 70 74 6f | 72 3a 49 6e 74 65 67 65 |escripto|r:Intege|
|000036d0| 72 3b 20 72 75 6c 65 72 | 52 65 66 3a 54 45 52 75 |r; ruler|Ref:TERu|
|000036e0| 6c 65 72 52 65 66 3b 20 | 74 65 48 3a 54 45 52 65 |lerRef; |teH:TERe|
|000036f0| 63 6f 72 64 48 6e 64 6c | 29 20 20 3b 0d 50 52 4f |cordHndl|)  ;.PRO|
|00003700| 43 45 44 55 52 45 20 54 | 45 53 65 74 53 65 6c 65 |CEDURE T|ESetSele|
|00003710| 63 74 69 6f 6e 20 28 20 | 73 65 6c 53 74 61 72 74 |ction ( |selStart|
|00003720| 3a 4c 6f 6e 67 69 6e 74 | 3b 20 73 65 6c 45 6e 64 |:Longint|; selEnd|
|00003730| 3a 4c 6f 6e 67 69 6e 74 | 3b 20 74 65 48 3a 54 45 |:Longint|; teH:TE|
|00003740| 52 65 63 6f 72 64 48 6e | 64 6c 29 20 20 3b 0d 50 |RecordHn|dl)  ;.P|
|00003750| 52 4f 43 45 44 55 52 45 | 20 54 45 53 65 74 54 65 |ROCEDURE| TESetTe|
|00003760| 78 74 20 28 20 74 65 78 | 74 44 65 73 63 3a 49 6e |xt ( tex|tDesc:In|
|00003770| 74 65 67 65 72 3b 20 74 | 65 78 74 52 65 66 3a 54 |teger; t|extRef:T|
|00003780| 45 54 65 78 74 52 65 66 | 3b 20 74 65 78 74 4c 65 |ETextRef|; textLe|
|00003790| 6e 67 74 68 3a 4c 6f 6e | 67 69 6e 74 3b 20 73 74 |ngth:Lon|gint; st|
|000037a0| 79 6c 65 44 65 73 63 3a | 49 6e 74 65 67 65 72 3b |yleDesc:|Integer;|
|000037b0| 20 73 74 79 6c 65 52 65 | 66 3a 54 45 53 74 79 6c | styleRe|f:TEStyl|
|000037c0| 65 52 65 66 3b 20 74 65 | 48 3a 54 45 52 65 63 6f |eRef; te|H:TEReco|
|000037d0| 72 64 48 6e 64 6c 29 20 | 20 3b 0d 50 52 4f 43 45 |rdHndl) | ;.PROCE|
|000037e0| 44 55 52 45 20 54 45 53 | 68 75 74 44 6f 77 6e 20 |DURE TES|hutDown |
|000037f0| 20 20 3b 0d 50 52 4f 43 | 45 44 55 52 45 20 54 45 |  ;.PROC|EDURE TE|
|00003800| 53 74 61 72 74 55 70 20 | 28 20 75 73 65 72 49 64 |StartUp |( userId|
|00003810| 3a 49 6e 74 65 67 65 72 | 3b 20 64 69 72 65 63 74 |:Integer|; direct|
|00003820| 50 61 67 65 3a 49 6e 74 | 65 67 65 72 29 20 20 3b |Page:Int|eger)  ;|
|00003830| 0d 46 55 4e 43 54 49 4f | 4e 20 54 45 53 74 61 74 |.FUNCTIO|N TEStat|
|00003840| 75 73 20 20 3a 20 49 6e | 74 65 67 65 72 20 3b 0d |us  : In|teger ;.|
|00003850| 50 52 4f 43 45 44 55 52 | 45 20 54 45 53 74 79 6c |PROCEDUR|E TEStyl|
|00003860| 65 43 68 61 6e 67 65 20 | 28 20 66 6c 61 67 73 3a |eChange |( flags:|
|00003870| 49 6e 74 65 67 65 72 3b | 20 6e 65 77 53 74 79 6c |Integer;| newStyl|
|00003880| 65 3a 54 45 53 74 79 6c | 65 3b 20 74 65 48 3a 54 |e:TEStyl|e; teH:T|
|00003890| 45 52 65 63 6f 72 64 48 | 6e 64 6c 29 20 20 3b 0d |ERecordH|ndl)  ;.|
|000038a0| 50 52 4f 43 45 44 55 52 | 45 20 54 45 55 70 64 61 |PROCEDUR|E TEUpda|
|000038b0| 74 65 20 28 20 74 65 48 | 3a 54 45 52 65 63 6f 72 |te ( teH|:TERecor|
|000038c0| 64 48 6e 64 6c 29 20 20 | 3b 0d 46 55 4e 43 54 49 |dHndl)  |;.FUNCTI|
|000038d0| 4f 4e 20 54 45 56 65 72 | 73 69 6f 6e 20 20 3a 20 |ON TEVer|sion  : |
|000038e0| 49 6e 74 65 67 65 72 20 | 3b 0d 0d 49 4d 50 4c 45 |Integer |;..IMPLE|
|000038f0| 4d 45 4e 54 41 54 49 4f | 4e 0d 0d 45 4e 44 2e 0d |MENTATIO|N..END..|
|00003900| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00003910| 53 2e 42 20 32 20 3b 20 | 57 6f 72 64 20 2d 20 74 |S.B 2 ; |Word - t|
|00003920| 72 61 6e 73 61 63 74 69 | 6f 6e 20 49 44 20 23 0d |ransacti|on ID #.|
|00003930| 0a 54 65 78 74 45 64 69 | 74 2e 70 00 02 00 00 00 |.TextEdi|t.p.....|
|00003940| 54 45 58 54 4d 50 53 20 | 01 00 00 80 00 80 00 00 |TEXTMPS |........|
|00003950| 00 00 54 45 58 54 4d 50 | 53 20 01 00 00 80 00 80 |..TEXTMP|S ......|
|00003960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003970| 00 00 a1 49 a6 80 00 00 | 38 80 00 00 01 ac 4c 6f |...I....|8.....Lo|
|00003980| 6e 67 20 2d 20 70 6f 69 | 6e 74 65 72 20 74 6f 20 |ng - poi|nter to |
|00003990| 74 68 65 20 72 65 71 75 | 65 73 74 20 62 75 66 66 |the requ|est buff|
|000039a0| 65 72 0d 75 73 65 72 42 | 79 74 65 73 20 20 44 53 |er.userB|ytes  DS|
|000039b0| 2e 42 20 34 20 3b 20 4c | 6f 6e 67 20 2d 20 75 73 |.B 4 ; L|ong - us|
|000039c0| 65 72 20 42 59 54 45 73 | 0d 6e 75 6d 62 65 72 52 |er BYTEs|.numberR|
|000039d0| 65 73 70 42 75 66 66 65 | 72 73 20 20 44 53 2e 42 |espBuffe|rs  DS.B|
|000039e0| 20 31 20 3b 20 42 79 74 | 65 20 2d 20 6e 75 6d 62 | 1 ; Byt|e - numb|
|000039f0| 65 72 20 6f 66 20 72 65 | 73 70 6f 6e 73 65 20 62 |er of re|sponse b|
|00003a00| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 70 2d 37 |...H..Mo|naco.p-7|
|00003a10| 00 74 6f 20 53 52 37 31 | 3a 4d 41 58 3a 54 65 78 |.to SR71|:MAX:Tex|
|00003a20| 74 45 64 69 00 00 00 06 | 00 04 00 3c 00 24 01 dd |tEdi....|...<.$..|
|00003a30| 02 3d 00 3c 00 24 01 dd | 02 3d a2 dc ec 34 00 00 |.=.<.$..|.=...4..|
|00003a40| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 00 1e |........|........|
|00003a50| 00 3c 00 24 01 dd 02 3d | 00 3c 00 24 01 dd 02 3d |.<.$...=|.<.$...=|
|00003a60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003a70| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 00 93 |.....n..|.n...>..|
|00003a80| dc 58 0b 06 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |.X......|.>..MPSR|
|00003a90| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|00003aa0| 03 f0 ff ff 00 00 00 4c | 00 00 00 00 00 00 00 00 |.......L|........|
|00003ab0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ac0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ad0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003af0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+